Народ,помогите пожалуйста отредактировать лабу!!!Очень сроччно нужно!!! Задание:Создать матрицу В(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.