Разобрать словополными - морфологический разбор , к дачному,
Забыть фонетический

uses crt;

var c: array[1..5,1..5] of integer;

i,j,temp: integer;

begin

    randomize();

    for i: =1 to 5 do

      for j: =1 to 5 do

          c[i,j]: =random(1000);

    for i: =1 to 5 do begin

      t: =c[i,i];

      c[i,i]: =c[i,6-i];

      c[i,6-i]: =t;

    end

end.

program pr; uses crt; var i,j,b: integer; c: array[1..5, 1..5] of integer; beginfor i: =1 to 5 do beginwriteln;       for j: =1 to 5 do begin c[i,j]: =random(100); write(c[i,j],'|');   end;         end; for i: =1 to 5 do        begin                    b: =c[i,i];                     c[i,i]: =c[i,6-i];                     c[i,6-i]: =b;           end; writeln;           for i: =1 to 5 do beginwriteln;       for j: =1 to 5 do  write(c[i,j],'|');         end;           readln; end.