Procedure A(Const X: Integer);
Будет ошибка. Просто убери все Const из заголовков процедур, там где компилятор тебе покажет. И, кстати, перед компиляцией удали TPU файл, он в формате 7-го Турбо Паскаля, и несовместим с TP6...
program p1;
var i: integer;
begin
writeln('-----');
FOR i:=1 TO 20 DO
IF (20 mod i) = 0 THEN writeln(i);
readln;
end.
Это все, что ты должен сделать... Увеличение I это проблема оператора For... Ты этого делать не должен. Более того, это делать нельзя, т.к. некоторые компиляторы выдают ошибку.