Написать на языке Паскаль! Помогите плиз

Program gg;
const  tmx = 60;
var  x, y, t: integer;  s: string;
begin  t := 10;  readln(x, y);  while t lt;gt; tmx do  begin    inc(t, 10);    inc(x, x);    inc(y, y);  end;  if x gt; y then s := 'Стас'   else   if y gt; x then s := 'Тарас'  else s := 'никто';  writeln(s);end.