Pascal ABC.Задача через процедуру

[hohoma]

В файле записать числа по 2 в строке. Cчитать их парами. Каждая пара задает координату точки на плоскости. Найти расстояние этой точки от начала координат в виде процедуры и вывести на экран.
============
Ребят, пожалуйста помогите написать

[Stilet]

В качестве идеи:

В файле

type
 TFile=record
  x,y:string[10];
 end;
var f:File of TFile;

записать числа по 2 в строке.

procedure Writer;
var r:TFile; c:char;
begin
 AssignFile(f,'Файло'); Rewrite(f);
 repeat
  Write('X:'); Readln(r.x);
  Write('Y:'); Readln(r.y);
  write(f,r);
  Write('Продолжим?: y / n'); Readln(с);
 until c='n'; CloseFile(f);
end;

Cчитать их парами.

procedure Writer;
var r:TFile; c:char;
begin
 AssignFile(f,'Файло'); Reset(f);
 While not eof(f) do begin
  read(f,r);
 end; CloseFile(f);
end;

Найти расстояние этой точки от начала координат в виде процедуры и вывести на экран.

procedure dist(r:TFile); begin writeln(sqrt(sqr(strtoint(r.x))+sqr(strtoint(r.y)))); end;