Описать функцию del(x), находящую наибольший целый делитель натурального числа х.

Видимо, "наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 1)

var x, i, max:integer;
function Del(x:integer):integer;
begin
     for i := 1 to x div 2 do
     begin
          if x mod i = 0
          then
              max := i;
     end;
     del := max;
end;
begin
     read(x);
     writeln(Del(x));
end.