Помогите пожалуйста решить задачку с помощью паскаля.1.-Избрать наибольшее из 2-ух

1)
var i, a: integer;
begin
     readln(i, a);
     if (i lt; a) then writeln(i, ' lt; ', a)
     else if (i = a) then writeln(i, ' = ', a)
     else writeln(i, ' gt; ', a);
end.

2)
var i, a: integer;
begin
     for i := 1 to 100 do
          a := a + i*i*i;
     writeln(a);
end.

Фортуны для тебя :3