Задать одномерный массив из 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.