Дополнить Оператор цикла

[ProgrammiST-_-]

f:=true;
readln(a);
for i:=2 to n do
begin
readln(b);
if b<a then f:=false;
a:=b;
end;
if f then write('да')
else write('нет');
ЭТО ЧАСТЬ ПРОГРАММЫ НУЖНА ПОЛНАЯ ПОМОГИТЕ(((

[Alex11223]

end.

Вот, дополнил.

Мы что делаем-то?

[ProgrammiST-_-]

Дана последовательность из n чисел Определить является ли она неубывающей. Вот условие

[Alex11223]

А проблема в чем? Что там дополнять? Вроде все должно работать, ну только надо перед циклом ввести n, объявить переменные и т.д.

[ProgrammiST-_-]

в том то и дело что я незнаю как дополнить мозги уже взорвутся ща отчет просто делаю уже 7 задач сделал + блок схемы к каждой вот это последняя, щас ниче не соображаю помоги плиз напиши эти переменные ну оч надо

[ProgrammiST-_-]

и кстати делать надо через repeat until

[Alex11223]

Если 7 задач сделали, то готовую в чем проблема доделать?)

var a, b, i, n: integer;
f:boolean;
begin
...
readln(n);