Задача на pascal

Народ,помогите пожалуйста отредактировать лабу!!!Очень сроччно нужно!!!
Задание:Создать матрицу В(5,5) целых чисел. Записать в файл а сумму первого и последнего элементов
в каждой строчке матрицы. Найти наименьшее значение компонетны файла. Если минимум > 0, записать его
вместо каждй второй компоненты. Файл распечатать


Program laba;
Uses crt;
Type
ftype=file of integer;
matrica=array[1..5,1..5] of integer;
Var
f:ftype;
B:matrica;
N:byte;
min:integer;
Procedure FormMatr(var B:matrica; Nx:byte; c:char);
Var
i,j:byte;
Begin
for i:=1 to Nx do
for j:=1 to Nx do
begin
write('C[',i,',',j,']=');
readln (B[i,j]);
end;
end;
Procedure Summa(var f:ftype; B:matrica; N:byte);
Var
i:byte;
s:integer;
Begin
rewrite(f);
reset(f);
for i:=1 to 5 do
begin
S:=0;
S:=B[i,1]+B[i,5];
write (f,s);
end;
close(f);
end;
Procedure PoiskMin(var f:ftype;var min:integer);
Var
a:integer;
Begin
reset(f);
read(f,min);
while not eof (f) do
begin
read (f,a);
if a < min then
min:=a;
end;
close(f);
end;
Procedure Preobrazovanie(var f:ftype; min:integer);
Begin
reset(f);
if min > 0 then
while not eof(f) do
begin
seek(f,filepos(f)+2);
write(f,min);
end;
close(f);
end;
Procedure PrintFile(var f:ftype);
Var
a:integer;
Begin
reset(f);
while not eof(f) do
begin
read(f,a);
write(a:1,'');
end;
close(f);
end;
BEGIN
clrscr;
assign(f,'f.dat');
Writeln('Vvedite matricy ');
FormMatr(B,N,'B');
Summa(f,B,N);
PoiskMin(f,min);
Preobrazovanie(f,min);
PrintFile(f);
readkey;
End.

 

Тема закрыта.