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

begin

val(s,x,e);

s:='';

if e=0 then begin

b[i,j]:=x;

j:=j+1;

end

else begin

writeln('Oshibka v dannih');

end;

end;

end;

until Eof(F);

if s<>'' then begin

val(s,x,e);

s:='';

if e=0 then begin

b[i,j]:=x;

j:=j+1;

end

else begin

writeln('Oshibka v dannih');

end;

end;

Close(f);

end{FileExist}

else begin

writeln('Fail ne sushestvuet');

readln;