Создание сайтов и программирование

 Отправлено: 16.01.12 15:57. Заголовок: помогите с ошибками

{Даны две последовательности чисел a1, a2, ..., an и b1, b2, ..., bn. Сформируйте новые последовательности, элементы которых вычисляются по следующему правилу:
ai = max(ai, bi), bi = min(ai, bi), i = 1, 2, ..., n.}
unit unit8_18;
interface
procedure vved(var fin:text, var m:integer; var a:mas; filename:string);
procedure vived(var fout:text, m:integer, a:mas, filename:string);
function max(a:integer; b:integer);
function min(a:integer; b:integer);
implementation
procedure vved(var fin:text;var m:integer; var a:mas; filename:string);
var
i:integer;
begin
assign(fin,filename);
reset(fin);
read(fin,m);
for i:=1 to m do
read(fin,a);
close(fin);
end;
procedure vived(var fout:text;m:integer; a:mas; filename:string);
var
i:integer;
begin
assign(fout,filename);
rewrite(fout);
for i:=1 to m do
write(fout,a:5);
writeln(fout);
end;
close(fout);
end;
function max(a: integer; b: integer):integer;
begin
if (a > b) then
max := a
else
max := b;
end;
function min(a: integer; b: integer): integer;
begin
if (a < b) then
min := a
else
min := b;
end;
end.
program l8_18;
uses
crt, unit8_18;
const
n=10;
var
a:array[1..n] of integer;
b:array[1..n] of integer;
i,m:integer;
begin
clrscr;
vved(f,m,a,'l8_18in.txt');
min(a,b);
max(a,b);
vived(g,m,a,'l8_18out.txt');
readkey;
end.