Не читает последний оператор?

[Dimidrolus]

Следующая  задача  слегка  надумана  — это  всего  лишь  полигон  для  испытания
наших  собственных  процедур.  Условие  задачи  таково:  пусть  пользователь  введет
одну  за  другой  несколько  строк,  например,  три(потребуется  цикл  со  счетчиком, 
улавливаете?).  В  каждой  введенной  строке  надо  заменить  латинские  буквы  «A»  — 
если  они  там  есть  — на  латинские  буквы  «B».  Например,  приняв  строку  «ABBA», 
программа должна превратить её в строку «BBBB».

var s:string; count:integer;

procedure scan(edit:string);
var l,a: integer;
begin
l:=length(edit);
for a:=1 to l do
begin
if edit[a]='a' then edit[a]:='b';
end;
writeln(edit);
end;

begin
count:=1;
repeat
writeln ('enter string');
readln(s);
scan(s);
count:=count+1;
until
count=3;
readln;
end.

Почему програмка сразу завершается после обработки последней строки? Почему не ждет пока нажму ентер?

[Stilet]

Почему не ждет пока нажму ентер?

А сколько раз ты вводишь?
У тебя цикл позволяет отрабатывать только две итерации. Если поставишь count:=0;
То получишь как по заданию - три итерации, если опираешься на это.
А вообще пропиши:

writeln ('The End'); readln;

В конец, чтоб знать что все закончилось, а не продолжает запрашивать ввод.

[Dimidrolus]

Сообщение от Stilet

А сколько раз ты вводишь?
У тебя цикл позволяет отрабатывать только две итерации. Если поставишь count:=0;
То получишь как по заданию - три итерации, если опираешься на это.
А вообще пропиши:

writeln ('The End'); readln;

В конец, чтоб знать что все закончилось, а не продолжает запрашивать ввод.

А блин) Под утро туплю)) Все верно) Спасибо.

[Stilet]

А блин) Под утро туплю)

Ну дык постновогоднеоливьелистичное состояние