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

end;{FromFile}

end;{case}

end;{procedure}

procedure vivod;

var i,j:integer;

ff,fp:text;

path:string;

line:string;

begin

case t of

1: begin

for i:=1 to k1-x do

begin

for j:=1 to k2-x do

write (b[i,j]:6);

writeln;

end;

if x=1 then Writeln('Kolichestvo nuley: ',null(b));

end;

2: begin

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

readln(path);

assign(ff,path);

rewrite(ff);

for i:=1 to k1-x do

begin

for j:=1 to k2-x do

write(ff,b[i,j],' ');

writeln(ff);