MAX:=A[1,1];DEL_X:=1; DEL_Y:=1;
    FOR I:=1 TO RAZ_Y DO BEGIN
    FOR J:=1 TO RAZ_X DO
    IF MAX<A[J,I] THEN   
      BEGIN
      MAX:=A[J,I];
      DEL_X:=J; DEL_Y:=I; 
      END;

RAZ_Y:=RAZ_Y-1;
    FOR I:=DEL_Y TO RAZ_Y DO
    FOR J:=1 TO RAZ_X DO
    A[J,I]:=A[J,I+1];
    RAZ_X:=RAZ_X-1;
    FOR I:=1 TO RAZ_Y DO
    FOR J:=DEL_X TO RAZ_X DO
    A[J,I]:=A[J+1,I];

type
  plist = ^tlist;
  tlist = { это - список по строке }
    record
      col_num, value: integer;
      next: plist;
    end;

  pvector = ^tvector;
  tvector = { это - список самих строк }
    record
      row_num: integer;
      next: pvector;
    end;

var
  f: text;
  pl, pl_first, pl_last: plist;
  pv, pv_first, pv_last: pvector;

  i, j, X: integer;

begin
  assign(f, '__razr.txt');
  reset(f);

  pv_first := nil; pv_last := nil;

  i := 1;
  while not seekeof(f) do begin

    j := 1; pl_first := nil; pl_last := nil;

    while not seekeoln(f) do begin

      read(f, X);

      if X <> 0 then begin
        {
          append new item to the end of list
        }
        new(pl);
        pl^.value := x;
        pl^.col_num := j;
        pl^.next := nil;

        if pl_first = nil then pl_first := pl
        else pl_last^.next := pl;
        pl_last := pl;

        inc(j);
      end;

    end;
    readln(f);

    if pl_first <> nil then begin
      new(pv);
      pv^.row_num := i;
      pv^.next := nil;

      if pv_first = nil then pv_first := pv
      else pv_last^.next := pv;
      pv_last := pv;
    end;

    inc(i);
  end;

  close(f);

  { Теперь в pv_first хранится указатель на начало списка списков }
end.