Pascal работа с файлами: В текстовом файле хранятся квадратные целочисленные матрицы порядка n.

[Stilet]

Olga92

var a:array[1..1000,1..1000] of string;
 q,w,i,j:integer; f:file of char; c:char; f2:text;
begin
 assign(f,'text'); reset(f);
 i:=1;j:=1;

//Читайем матрицу
 while not eof(f) do begin
  read(f,c);
  if c=' ' then inc(j) else
  if c=#13 then begin inc(i); j:=1; end else
  if c in ['0'..'9'] then a[i,j]:=a[i,j]+c;
 end;
 close(f);

// Пишем матрицу
 assign(f,'text'); rewrite(f);
 for q:=1 to i do begin
  for w:=1 to j do begin
   if w<>(i-q) then write(f,a[i,j]);
  end; writeln(f);
 end;
 close(f);
end;

Это без задумьев о размере матрицы - это я тебе оставляю.

P.S. Код не проверял.