Помогите с переводом формула -> Паскаль

[Chasingthedream]

Здравствуйте!

Нужно описать формулу:


Вот, что у меня получилось:

program qz;
uses crt;
label M2;
var
U1,U2,i,P,R,n:integer;
K,a:real;
begin
clrscr;
n:=120;
P:=0;
R:=0;
а:=0.5;
for i:=1 to n do
begin
readln(U1,U2);
if U1 > U2 then
P:=P+1
goto M2
else
if U1=U2 then
goto M2
else
P:=P-1;
M2:
R:=R+i;
K:=(0.5*P)/R;
K:=K+a;
writeln(K);
end;
end.

Вылетает ошибка "synt error 18.1".
Очень прошу помочь - скажите в чем ошибки и какие есть недочеты?
Еще хотелось бы узнать -
1) Что нужно добавить, чтобы шел повторный расчет 120-и циклов но с другими переменными?
2) Как можно описать вывод данных допустим с некого порта ( непрямым вводом)?

[type_Oleg]

Лучше всего сделать так.
Числитель - функция, знаменатель - другая функция, и тогда X равно просто одну делить на другую и + 0,5.
Вот вам функция для вычисления знаменателя

function Sum1toM(m:Integer):Integer;
var i,s:Integer;
begin
 s:=0;
 for i:=1 to m do s:=s+i;
 Sum1toM:=s;
end;

А ваш код даже разбирать неохота, в таком виде очень плохо воспринимается - без отступов и т.д. Вы сами-то как его воспринимаете ?