Исправьте ошибку

[Rammstalex]

Вообще изначально задача была такая, решил упростить.Считать из файла информацию о рейсе самолета (N рейса, время вылета, время прилета, пункт назначения). Вывести информацию о всех рейсах в заданный город.

Решил сделать так: просто произвести поиск слова в строках из файла, если найдется нужное слово, то вывести всю строку.

Пожалуйста помогите

[pascal]var
f:text;
temp:string;
s:string;
begin
assign(f,'baza.txt');
reset(f);

while not eof(f) do
begin
writeln('Введите пункт назначения');
readln(s);
readln(f,temp);
writeln(pos(s,string[i]));
end;

close(f);
end.[paskal/]


содержание файла:
23 14 16 Англия
24 19 20 Мексика
25 20 21 Англия

[eoln]

Ввод города надо перенести из цикла, ну и поиск неправильный

 writeln('Введите пункт назначения');
 readln(s);
 while not eof(f) do
 begin
 readln(f,temp);
 if pos(s,temp)>0 then writeln(temp);
 end;
 close(f);

Надеюсь, городов с названиями типа Йорк и Нью-Йорк не будет, иначе может выдать лишнее.
Ну и на счёт кодировок скажу, что могут быть проблемы с русским языком

[Rammstalex]

Спасибо большое)))

[Alexmur07]

- это задание
это я попытался решить)

uses crt;
var
x,y:real;
g:double;
begin
clrscr;
writeln('Лабораторная работа 1');
writeln('---------------------');
write('Введите значение переменной x, x=');
readln(x);
write('Введите значение переменной y, y=');
readln(y);
g:=((1+cos(x+y)/(abs(exp(x)-2*y/(1+sqr(x)*sqr(y))))*(exp(3*ln(x))+arctan(y/sqrt(1-sqr(y))))));
writeln('g=',g);
writeln('Для продолжения нажмите любую
клавишу');
readkey;
end.

сильно не ругать)))
если ставить меньше скобочек в формуле то он пишет что скобок мало надо поставить есчё)) и я там попытался арксинус заменить на формулу арктанг, вообщем вроде он что-то считает, но походу считает не правильно... подскажите где я в формуле накосячил... он мне такую ерись в ответе выдаёт... только если ставить х и у 1 тогда ответ более близок к правдивому... подскажите двоячнику