Matematické Fórum

Potřeboval bych najít chybu, když zapnu program tak mi to napíše chyba 105(což by mělo byt podle internetu File not open for output), soubor pro zápis se vytvoří ale je bohužel úplně prázdný. díky za rady

program PRG45(vstup,vystup);
const mmax=4;nmax=5;
type  mat=array[1..mmax,1..nmax] of real;
var   i,j,k:integer;
      vstup,vystup:text;
      a:mat;
      sum:real;
begin
     assign(vstup,'vstup.txt');
     assign(vystup,'vystup.txt');
     reset(vstup);
     rewrite(vystup);
     write('Zadej sloupec v mezich <1,5>:');
     read(k);
     sum:=0;
     for i:=1 to mmax do
         for j:=1 to nmax do read(vstup,a[i,j]);
     writeln(vystup,'Zadana matice');
     writeln(vystup);
     for i:=1 to mmax do
            begin
            for j:=1 to nmax do write(vystup,a[i,j]:3:0);
            writeln(vystup);
            end;
     for i:=1 to mmax do sum:=sum+a[i,k];
     
     for j:=1 to nmax do
             begin
             sum:=0;
             for i:=1 to mmax do sum:=sum+a[i,j];
             writeln(vystup,'Aritm.prumer prvku v ',j,'. sloupci: ',sum/mmax:3:2);
             end;     
     close(vstup);
     close(vystup);
     end.