[Помогите!] Pascal нужна помощь

[Deadsector]

В общем делал курсавик и столкнулся с такой проблемой вот процедура которая ищет похожие фамилии в файле и выводит на экран поясню Ввел например буквы Ко и он вывел Коровин Короваев и т.п.

Цитата: procedure real_vrem; var Nazv : string[15]; k,z : integer; gh:boolean; begin k:=0; Assign(F,'baza.dat'); Reset(F); ClrScr; writeln('Поиск записи по Фамилии:'); writeln; Write('Введите Фамилию: '); writeln; read(nazv); writeln('######################################### ###############################'); writeln('#',' Фамилия # ',' Имя # ',' Отчество # ',' Улица # ','Дом # ','Квартира ','#'); while not Eof(F) do begin read(F,a); gh:=true; for z:=1 to length (nazv) do if a.fam[z]<>nazv[z] then gh:=false; if gh then begin writeln('#',a.fam:9,' #',a.name:8,' #',a.oth:14,' #',a.ul:12,' #',a.dom:6,' #',a.kv:9,' #'); k:=k+1; end; end; Close(F); writeln('######################################### ###############################'); writeln; writeln; writeln('Поиск завершен, найдено записей: ',k); writeln; write('Нажмите любую клавишу...'); readln; end;

к этой процедуре мне нужно еще прикрутить режим поиска в реальном времени то есть ввел К он вывел все фамилии на К затем курсор должен остаться на том же месте где я ввел К и продолжаю добавлять буквы к букве К я добавляю О и он отчищает экран и выводит новый вариант списка с фамилиями Коровин Короваев и т.п.
сказали используй readkey и repeat until пробовал нечего не получилось может тут кто смогет =))

[mad_cat]

ну что то вроде
пишу прям сюда Мб ошибки синтаксические

buf:='';//buf:string;
repeat 
clrscr; // uses crt; не забудь
write(':',buf);
f:=false;
ch:=readkey;
buf:=buf+ch;
reset(f);
while not Eof(F) do
begin
read(F,a);
gh = pos(buf,a.fam[z])<>0
if gh then
begin
writeln('#',a.fam:9,' #',a.name:8,' #',a.oth:14,' #',a.ul:12,' #',a.dom:6,' #',a.kv:9,' #');
k:=k+1;
end;
end;
until not gh;

[Deadsector]

ну все сделал =)) чуть переделал а в прочем на мысли натолкнул =))