таблицы с файлами...-исправление ошибок

[Andrianka]

помогите исправить ошибки плиз=(

uses crt;
const n=5;
      m=10;
type mas=array[1..n] of integer;
     mas2=array[1..m] of integer;
var f1,f2,f3:text;
a1,a2:mas;
s:mas2;



procedure beg1(var a1:mas);
var i:integer;
begin
assign(f1,'file-1.txt');
rewrite(f1);
for i:=1 to n do
begin
a1[i]:=random(100);
end;
close(f1);
end;

procedure beg2(var a2:mas);
var j:integer;
begin
assign(f2,'file-2.txt');
rewrite(f2);
for j:=1 to n do
begin
a2[j]:=random(100);
end;
close(f2);
end;

procedure wri1(a1:mas);
var i:integer;
begin
assign(f1,'file-1.txt');
reset(f1);
writeln('1 Plik');
for i:=1 to n do
write(' ',a1[i]);
writeln;
close(f1);
end;


procedure wri2(a2:mas);
var j:integer;
begin
assign(f2,'file-2.txt');
reset(f2);
writeln('2 Plik');
for j:=1 to n do
write(' ',a2[j]);
writeln;
close(f2)
end;

procedure sort1(a1:mas);
var i,j,d:integer;
begin
assign(f1,'file-1.txt');
reset(f1);
for j:=1 to n do begin
for i:=1 to n-1 do
while a1[i+1]>a1[i] do begin
d:=a1[i];
a1[i]:=a1[i+1];
a1[i+1]:=d;
end;
end;
write('Plik 1 posortowany');
writeln;
for i:=1 to n do

write(' ',a1[i]);
writeln;
close(f1);
end;

procedure sort2(a2:mas);
var i,j,d:integer;
begin
assign(f2,'file-2.txt');
reset(f2);
for j:=1 to n do begin
for i:=1 to n-1 do
while a2[i+1]>a2[i] do begin
d:=a2[i];
a2[i]:=a2[i+1];
a2[i+1]:=d;
end;
end;
write('Plik 2 posortowany');
writeln;
for i:=1 to n do

write(' ',a2[i]);
writeln;
close(f2)
end;

procedure sort(a1,a2:mas; s:mas2);
var i,j,g,k,d:integer;
begin
assign(f3,'file-3.txt');
rewrite(f3);
writeln('Sortowanie 2 Plikow ');
for i:=1 to n do
s[i]:=a1[i];
k:=n+1;
g:=n;
for i:=k to m do begin
for j:=1 to g do
s[i]:=a2[j];
g:=g-1;
    end;
for j:=1 to m do begin
for i:=1 to m-1 do
while s[i+1]>s[i] do begin
d:=s[i];
s[i]:=s[i+1];
s[i+1]:=d;
end;
end;
for i:=1 to m do
write(' ',s[i]);
close(f3);
end;

begin
randomize;
beg1(a1);
beg2(a2);
wri1(a1);
wri2(a2);
sort1(a1);
sort2(a2);
sort(a1,a2,s);
readln;
end.

[Stilet]

Какие ошибки? Запустил - работает:

1 Plik
41 74 36 50 74
2 Plik
26 99 44 50 78
Plik 1 posortowany
74 74 50 41 36
Plik 2 posortowany
99 78 50 44 26
Sortowanie 2 Plikow
99 78 74 74 50 50 44 41 36 26

[Andrianka]

Сообщение от Stilet

Какие ошибки? Запустил - работает:

Спасибо,видимо у меня с компилятором проблемы,потому что прога вылетала с критической ошибкой.

[Serge_Bliznykov]

программа работает.
только код процедур полностью неправильный!
Особенно порадовали процедуры wri...
Там файлы на чтение открываются, но чтения из файла нет!