формирование матрицы (задание выполненно не могу найти сваю ошибку)

[КиношкА]

Глянте плиззз.....
Не могу найти сваю ошибку.....
Задание: построение определённой матрецы.....
Вот то что у мну получилось......

const N = 5; {колво элементов матрицы}
var I, J,a1,a2,a3,a4,a5 : integer;
     A : array[1..N, 1..N] of real; {обевление массива}
    begin
I := 0; {обнуление счётчика}
J := 0; {обнуление счётчика}
writeln('a1=');
readln(a1);
writeln('a2=');
readln(a2);
writeln('a3=');
readln(a3);
writeln('a4=');
readln(a4);
writeln('a5=');
readln(a5);
repeat  {цикл задания матрецы}
   I := I + 1;
  J := J + 1;
  For I := 1 to N do

    For J := 1 to N do
  A[I,J]:=a1;
  A[I+1,J] := a2;
  A[I+2,J] := a3;
  A[I+3,J] := a4;
  A[I+4,J] := a5;
  


  If A[I, J] <> a1 or a2 or a3 or a4 or a5 Then A[I,J] := 0;
until I = (N - 1); {условие выхода из цыкла}
{вывод результата на экран}
For I := 1 to N do
  begin
    WriteLn;
    For J := 1 to N do
      Write(' ', A[I,J]);
  end;
  readLn;
end.

забыла указать програма на Паскале

[Карась]

  For I := 1 to N do 
  
    For J := 1 to N do 
  A[I+1,J]:=a1; //Всё что ниже небудет выполняться пока цикл непрокрутится полностью. 
  
  A[I+2,J] := a2;   
  A[I+3,J] := a3;   
  A[I+4,J] := a4;   
  A[I+5,J] := a5;

Надо просто написать программу "заполнение матрицы с клавиатуры"?
Это делается гораздо проще через пару циклов For....

[КиношкА]

понимаешь там условия какраз в этом чтоб не с клавы матрицу вывадить полностью а автоматом......
еслиб былаб возможность вывадить матрецу в ручную я б уже давно выпалнилаб это задание.....

[Карась]

Тогда напиши условие полностью....
Можно вообще Random использовать и ничево вводить ненадо.

[КиношкА]

Сообщение от Карась

Тогда напиши условие полностью....
Можно вообще Random использовать и ничево вводить ненадо.

невозможно использовать random условие не позвалають.....
Вот условие:
Построить наддиогональную квадратную матрецу Dx*x
.....|a1 a2 a3 a4 ... an |
.....|0 a1 a2 a3 ... an-1 |
D= |0 0 a1 a2 ... an-2 |
.....|... ... ... ... ... ... |
.....|0 0 0 0 ... a1 |

[Карась]

Ваш код слишком ужасен чтоб ево исправлять... это надо новый писать...
Разбирайтесь.

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.

[КиношкА]

Карась здорово спасибки..... я просто только учусь изза этого всё так бед)))
Можно только один вапросик зачемь второй массив вводить?

[КиношкА]

я помоему сама понила..... большое спасибо......