Построить наддиогональную квадратную матрецу Dx*x — Pascal(Паскаль)

var
  mas1: array [1 .. 5, 1 .. 5] of integer;
  mas2: array [1 .. 5] of integer;
  x, y, a: Byte;

begin
  For x := 1 to 5 do
    Readln(mas2[x]);
  For x := 1 to 5 do
    Write(mas2[x], ' ');
  a := 0;
  For x := 1 to 5 do
  Begin
    For y := 1 + a to 5 do
      mas1[x, y] := mas2[y - a];
    a := a + 1;
  End;
  Writeln;
  Writeln;

  For x := 1 to 5 do
  Begin
    For y := 1 to 5 do
      Write(mas1[x, y], ' ');
    Writeln;
  End;

  Readln;

end.