Вычислить наибольший общий делитель двух натуральных чисел А и В

[SsIDit]

Задача - Вычислить наибольший общий делитель двух натуральных чисел А и В.

program pr1;
uses crt;
var i, data1, data2, c, max : integer;


begin
ClrScr;
Write('Введите перво число: ');
ReadLn(data1);
Write('Введите второе число: ');
ReadLn(data2);
if data1 => data2 then max := data1 else max := data2;
for i := 1 to max do
if (data1 mod i = 0) and (data2 mod i = 0) then c := i;
WriteLn('Наибольший общий делитель - ', c);
ReadKey
end.

Пишет ошибку (см. вложение) на строке

if data1 => data2 then max := data1 else max := data2;

Извините за неккоректное название темы - исправьте пожалуйста.

[Terran]

Поменяйте знак =>. Такого знака нет. Есть >=