Файлы, разные типы данных в файле Опции

[Ania]

 var
  x, xs, y, ys, o1, o2, e1, e2: real;
  f2, f1 : text;
  s, s1, s3: string;


 begin
  assign (f1, 'f.txt');
  reset (f1);
  assign (f2, 'coordinat.txt');
  reset (f2);
  readln (f2, s, s1,o1, o2, s3, e1, e2);
  while  not EOF  (f1) do
   begin
    readln (f1, x, y);
    xs:=o1+x*e1;
    ys:=o2+y*e2;
-----------
  end;
close(f1);
close (f2);
end.

Добавлено через 2 мин.
Ошибка. Помогите пожалуйста.
Во входном файле по порядку: 2 строки (s,s1) 2 числа, строка (s3), 2 числа. Это всё нужно прочитать, а потом использовать числа в задаче… У меня читает только первую строчку и числа, а если строк больше, то выводится ошибка. Как сделать чтобы прочитал по порядку и всё без ошибок? Может использовать другой тип переменных, не string?

Сообщение отредактировано: Ania - 29.11.2007 11:58