не получается выполнить прогу работы с файлами

uses crt;
var
f:file of integer;
name:string;
mas:array[1..10,1..10]of integer;
x,t:integer;
 
procedure zapoln(mas:array of integer);
var
i,j:integer;
begin;
randomize;
writeln('ishodnii massiv');
writeln;
for i:=1 to 10 do begin;
writeln;
for j:=1 to 10 do begin;
mas[i,j]:=random(25);
write(mas[i,j],' ');
end;
end;
writeln('vivod ishodnogo massiva zavershen');
end;
 
procedure read(name:string; f:file of integer; x:integer);
var
i,j:integer;
begin;
writeln('Vvedite im9 faila');
readln(name);
assign(f,name);
rewrite(f);
for i:=1 to 10 do begin;
for j:=1 to 10 do begin;
if mas[i,j] mod(x)=0 then write(f,mas[i,j]);
end;
end;
writeln('fail imeet ',filesize(f),' zapisei');
close(f);
end;
 
 
 
procedure show(name:string; f:file of integer);
var
s:integer;
begin;
writeln('na4inaets9 vivod zapisei faila dannih');
writeln;
writeln('vvedite im9 faila');
readln(name);
assign(f,name);
{$I-}
reset(f);
{$I+}
if ioresult=0 then
begin;
seek(f,0);
writeln('vivod dannih');
while (not eof(f)) do
begin;
read(f,s);
write(s,' ');
end;
end;
 
begin;
zapoln(mas);
writeln;
writeln('vvedite 4islo');
readln(x);
writeln('na4alo raboti s failom');
writeln('1-sozdat'' fail');
writeln('2-smotret'' fail');
writeln('3-exit');
readln(t);
repeat
if t=1 then read(name,f,x);
if t=2 then show(name,f);
until t=3;
end.