Заменить все элементы главной диагонали матрицы на нули

program matrix;
var
x,y,i,j : integer;
m : array[0..3,0..3] of real ;
begin
  writeln('Vvedite massiv 4*4');
  for x := 0 to 3 do
    begin
      for y := 0 to 3 do
       begin
         readln(m[x,y]);
       end;
    end;
  for i := 0 to 3 do
   begin
     m[i,i] := 0;
   end;
  for x:= 0 to 3 do
    begin
      for y := 0 to 3 do
       begin
         write(m[x,y]:0:0);
       end;
      writeln;
    end;
  readln;
end.

program matr;
uses crt;
var
x,y : integer;
m : array[0..3,0..3] of real ;
begin
clrscr;
  writeln('Vvedite massiv 4*4');
  for x := 0 to 3 do
    begin
      for y := 0 to 3 do
       begin
         readln(m[x,y]);
       end;
      writeln;
    end;
  for x := 0 to 3 do
   begin
     y := x;
     m[x,y] := 0;
   end;
  writeln('Soderjimoe matrix posle obrabotki');
  writeln;
  for x:= 0 to 3 do
    begin
      for y := 0 to 3 do
       begin
         write(m[x,y]:0:0);
       end;
      writeln;
    end;
  readln;
end.

program matr;
uses crt;
const n=4;
var x,y : integer;
    m : array[1..4,1..4] of real ;{и зачем вам для примитивного примера этот 
                                          неудобный для вывода вещественный тип?}
begin
clrscr;
writeln('Введите ',n*n,' элементов матрицы');
for x := 1 to n do
for y := 1 to n do
read(m[x,y]);
readln;
clrscr;
writeln('Исходная матрица:');
for x := 1 to 4 do
 begin
  for y:=1 to 4 do
  write(m[x,y]:5:1);
  writeln;
 end;
writeln;
writeln('Замена главной диагонали нолями');
for x:= 1 to 4 do
 begin
  for y := 1 to 4 do
   begin
    m[x,x]:=0;
    write(m[x,y]:5:1);
   end;
  writeln;
 end;
readln
end.