Контрольная работа: Язык программирования Turbo Pascal

readln(s);

val(s,x,e);

if e=0 then b[i,j]:=x

else begin

Writeln('Matrica dolzhna sostoyat'' iz celih chisel');

readln;

i:=k1;

j:=k2;

end;

end;

end;{keyboard}

3: begin{FromFile}

i:=1; j:=1; s:=''; k1:=1; k2:=1;

Writeln('Vvedite imya faila (ili polniy put)');

readln(path);

if FileExists(path) then

begin

Assign(f,path);

Reset(f);

repeat

Read(F, ch);

if ch=#10 then begin

i:=i+1;

k1:=k1+1;

k2:=j-1;

j:=1;

end;

if ((ch<>' ')and(ch<>#13)and(ch<>#10)) then s:=s+ch

else begin