Vector. a[i] >= i

program n1;
uses crt;
const n=50;type
vector=array[1..n] of integer;
var
a,b:vector;
i,kol,r:integer;
otv:char;

begin

textcolor(4);
textbackground(11);
clrscr;

while true do
begin

//Ввод размерности вектора
while true do
begin
 write('Введите размерность вектора ');
 readln(r);
 if((r>0) and (r<=n)) then break;
 writeln('повторите ввод ');
 end;

 //Ввод элементов Вектора
 writeln('ведите элемент вектора ');
 for i:=1 to r do
 begin
 write('a[',i,']=');
 readln(a[i]);
 end;

 writeln(' ':15,'исходный вектор ');
 writeln();
 write('количество элементов в одной строке ');
 read(kol);
 for i:=1 to r do
 if(a[i] >= i) then writeln(a[i])
 else write();


 //Диалог с пользователем
  readln();
write('Продолжить работу?');
readln(otv);
if((otv='N') or (otv='Y')) then break;
end;
writeln('программа сделана студентом 22П')
end.