Сформировать квадратную матрицу А(М,М) (М<=15). Создать файл F, записать в него последовательно строки с отрицательным элементом на главной диагонали. Если файл не сформирован, то удалить из файла 1-ю компоненту и распечатать.
Вот начало -

program laba4;
Uses crt;
Type matr=array[1..15,1..15] of real;
     fyle=file of real;
Var a:matr;
    i,n:integer; f:fyle;
procedure sform(var n:integer; var a:matr);
var i,j:integer;
begin
readln (n);
for i:=1 to n do
for j:=1 to n do
     begin
     write('a[',i,',',j,']=');
     readln(a[i,j]);
     end;
end;
procedure otric(var f:fyle; var n:integer; var a:matr);
var i,j:integer;
begin
rewrite(f);
for i:=1 to 15 do
if a[j,j]<0 then
     begin for i:=1 to n do
     write(f,a[i,j]);
     end;
end;

Кто поможет - Огромное спасибо

Так, ну во первых зачемы ты в процедуре sform передаешь n как var параметр ? Во вторых



Что значит если файл не сформирован ? Помоему это значит что в нем нет записей, тогда что ты собрался из него удалять ?