Найти наибольший общий делитель двух натуральных чисел - Pascal ABC

Формулировка задачи:

Условие:найти наибольший общий делитель двух натуральных чисел a и b. Решение:

                    Листинг программы
                
 
                        
                          
                    
program Ivan;
var
m,z:real;
i,a,b:integer;
begin
writeln('Ввести a,b');
readln(a,b);
if a<b then m:=a else m:=b;
for i:=1 to m do if a mod i=0 and b mod i=0 then z=i;
writeln(z);
end.

Пишет в строке 9,что операнды имеют неприводимые типы.Как исправить?

Решение задачи: «Найти наибольший общий делитель двух натуральных чисел»

Листинг программы

program Ivan;
var
z:real;
m : integer;
i,a,b:integer;
begin
writeln('a,b =');
readln(a,b);
if a<b then m:=a else m:=b;
for i:=1 to m do
 if (a mod i = 0) and (b mod i = 0) then z:=i;
 writeln(z:6:2);
 Readln;
 end.

Объяснение кода листинга программы

Программа начинается с объявления переменных z, m, i, a и b. Переменная z является вещественным числом, а остальные переменные являются целыми числами.
Затем программа выводит сообщение a,b =, чтобы пользователь мог ввести два числа.
После ввода чисел, программа проверяет, какое из чисел меньше другого. Если a меньше b, то значение переменной m устанавливается равным a, иначе значение m устанавливается равным b.
Затем начинается цикл for, который выполняется от 1 до m. В каждой итерации цикла проверяется, делится ли число a на текущее значение i без остатка, и также проверяется, делится ли число b на текущее значение i без остатка.
Если оба условия выполняются, то значение переменной z устанавливается равным i.
После завершения цикла, значение переменной z выводится на экран в формате z:6:2, где 6 это количество знаков после запятой, а 2 это количество знаков до запятой.
Наконец, программа просит пользователя ввести еще один раз, чтобы получить второе число.