Помогите, пожалуйста! Необходимо в поограмме pascal abc решить задание if5, if6,

if5                                                      

program raf105;

var a,b,c,po,ot: integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if a gt; 0

 then po+= 1;

if a lt; 0

 then ot+= 1;

if b gt; 0

 then po+= 1;

if b lt; 0

 then ot+= 1;

if c gt; 0

 then po+= 1;

if c lt; 0

 then ot+= 1;

writeln('Количество положительных чисел: ',po);

writeln('Количество отрицательных чисел: ',ot);

end.

if6                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a gt; b

 then writeln(a)

 else writeln(b);

end.

if7                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a lt; b

 then writeln('1')

 else writeln('2');

end.

Язык PascalABC 3.4.2