Я решил поставленную задачу, не прошло как говориться и
пол года. Но всё же спасибо тебе trminator! Ты подал идею, а я её решил при помощи команды seek. Формат записи должен быть не text, а file of string, вот в чём и была загвостка.
Код
Uses Crt;
Label 1;
Var
FileTown:file of string;
Town,Town1:string;
i:integer;
ch:char;
Begin
{Запись городов в файл}
TextBackGround(0);TextColor(15);ClrScr;
Assign(FileTown,'town.txt');
Rewrite(FileTown);
For i:=1 To 10 do
Begin
Write('Введите название ',i,' города => ');
Readln(Town);
Write(FileTown,Town);
end;
Close(FileTown);
Write('Нажмите <Enter>');
repeat
ch:=ReadKey;if ch=chr(13) then
until ch=chr(13);
{Чтение городов из файла}
1: TextBackGround(0);TextColor(15);ClrScr;
Assign(FileTown,'town.txt');
Reset(FileTown);
Write('Введите название города => ');
Readln(Town1);
while not EOF(FileTown) do begin
Read(FileTown,Town);
If pos(Town1,Town)=1 Then BEGIN
SEEK(FileTown,-1);
Writeln(Town);
end;end;
Close(FileTown);
Write('Нажмите <Enter> или <Esc>');
repeat
ch:=ReadKey;if ch=chr(13) then begin Goto 1;end;
if ch=chr(27) then until ch=chr(27);
End.
Посмотрите, что получилось, может кто решит эту задачку по другому, более проще.
;D