задача в паскаль по файлам; не останавливается цикл

[loveis_myname]

Program Samoletiki;
type
samolet=record
nomre: real;
pynkt: string;
vrpyti: real;
typsam: string;
chas_otpr:real;
min_otpr:real;
end;
var
sam: samolet;
Fsam: file of samolet;
Ftext: text;
otvet:char;
begin
assign(Fsam, 'C:\Samolet.dat');
rewrite(Fsam);
repeat
with sam do
begin
write('введите номер рейса:'); readln(nomre);
write('введите пункт назначения:'); readln(pynkt);
write('введите час отправления:'); readln(chas_otpr);
write('введите минуты отправления:'); readln(min_otpr);
write('введите тип самолёта:'); readln(typsam);
write('введите время пути:'); readln(vrpyti);
end;
write(Fsam,sam);
write('продолжить ввод?(да/нет)');
readln(otvet);
until(otvet='нет');
close(Fsam);
writeln('данные о рейсах после 22 часов');
reset(Fsam);
assign(Fsam,'C:\Samolet.txt');
rewrite(Fsam);
while not(eof(Fsam)) do
with sam do
begin
read(Fsam,sam);
if (chas_otpr>=22) and (chas_otpr<=24) then
begin
writeln(Ftext,nomre,'',pynkt,'',cha s_otpr,'',min_otpr,'',typsam,'',vrp yti);
writeln(nomre,'',pynkt,'',chas_otpr ,'',min_otpr,'',typsam,'',vrpyti);
end;
end;
close(Fsam);
close(Ftext);
readln;
end.
ЭТО ТЕКСТ...
ПОСЛЕ ВВОДА СЛОВА "НЕТ" ДОЛЖЕН ВЫВОДИТСЯ ОТВЕТ, УДОВЛЕТВОРЯЮЩИЙ ЗАДАННЫМ УСЛОВИЯМ, А ВМЕСТО ЭТОГО ПРОДОЛЖАЕТСЯ ВВОД ДАННЫХ
НЕ МОГУ НАЙТИ ОШИБКУ... УЖЕ СМОТРЕТЬ НА ЭТУ ЗАДАЧУ НЕ МОГУ

[Serge_Bliznykov]

otvet:char;
...
readln(otvet);
until(otvet='нет');

увидели ошибочку?
тип char - это ОДИН символ...
так что, либо сравниваем
until (otvet='н');
либо
оставляем проверку как была,
но тогда делаем
var otvet:string;

[loveis_myname]

OOОгрОООмное спасибо
я так и знала что ошибка дурацкая...а лаборантка привязалась к моему паскалюABC