Задать одномерный массив из 50 целочисленных элементов, с помощью цикла repeat until и вывести на экран те элементы которые совпадают с индексом позиции

//PascalABC.NET 3.0(*Задать одномерный массив из 50 целочисленных элементов, с помощью цикла repeat until вывести на экран те элементы которые совпадают с индексом позиции*)var mas : array [1..50] of integer;    i: integer;begin  for i:=1 to 50 do     mas[i] := random(50)+1;  writeln('Массив: ');    for i:=1 to 50 do     write(mas[i],' ');  writeln;    writeln('Элементы, совпадающие с индексом позиции: ');   i := 1;   repeat    if (mas[i] = i) then      write(mas[i],' ');    inc(i)  until i = 50;  end.