Присваивание переменных из типового файла

[Gistrec]

Имеется типовой файл, пример:

переменная1:
-X: переменная2
-y: переменная3
переменная1:
-X: переменная2
-y: переменная3
переменная1:
-X: переменная2
-y: переменная3


Помогите написать программу, которая каждый шаг будет
присваивать переменные из следующих трех строк.

Т.е. в процедуре for или while каждый новый шаг будут присваиваться три переменные из ПОСЛЕДУЮЩИХ трех строк типового файла

Заранее спс :3

[Stilet]

переменная1:

Что это значит?
Сам вид данных в файле привести могещъ?

[Gistrec]

Сообщение от Stilet

Что это значит?
Сам вид данных в файле привести могещъ?

Infinity:
-x: 59
-y: 147
POS:
-x: 10
-y: 348
simleA:
-x: 982
-y: 165
//И так далее

Т.е. в цикле при
i=1 a=Infinity b=59 c=147
i=2 a=POS b=10 c=348
i=3 a=simleA b=982 c=165
//И так далее

[Stilet]

Ясно. На классическом паскале это может выглядеть так:

var f:Text; s,a,e:string; b,c:integer;
begin
 assign(f,'файл'); reset(f);
 while not eof(f) do begin
  readln(f,a);
  readln(f,s); e:=pos(' ',s); val(copy(s,1,e),b,e);
  readln(f,s); e:=pos(' ',s); val(copy(s,1,e),c,e);
  ...
 end;
 close(f);
end.

[Gistrec]

Сообщение от Stilet

Ясно. На классическом паскале это может выглядеть так:

var f:Text; s,a,e:string; b,c:integer;
begin
 assign(f,'файл'); reset(f);
 while not eof(f) do begin
  readln(f,a);
  readln(f,s); e:=pos(' ',s); val(copy(s,1,e),b,e);
  readln(f,s); e:=pos(' ',s); val(copy(s,1,e),c,e);
  ...
 end;
 close(f);
end.

ПАСИИИИБО)))
ПРЯМ ВОООБЩЕ ОТ ДУШИ ДУШЕВНО В ДУШУ^^