задачки по процедурам и функциям, надо решить задачку в двух видах Опции

[nekkit]

Привет всем!
Вот задачка (циклы)
Эту задачку нужно переделать (Процедуры и Функции) в два варианта
1) чтобы была процедура
2) функция
В компьютер по очереди вводят расстояние от Москвы до областных центров
России. По мере поступления информации в компьютер печатать расстояние
самого удаленного города из тех, что уже обработаны.

Код

Program Zadacha22;
Var
  b,Kol,MaxKm:Integer;
  City,maxcity:String;
Begin
  ClrScr;
  MaxKm:=0;
  maxcity:=' ';
  Write('Сколько проанализируем городов?');
  Readln(Kol);
  For b:=1 to kol do
    Begin
      Write('введите город:');
      Readln(City);
      Write('Расстояние от Москвы до',City,'=');
      Readln(Km);
      if MaxKm<Km
        then
          Begin
            Maxkm:=km;
            maxcity:=City;
          end;
       End;
    Write('Самое большое расстояние от Москвы до',MaxCity,'=',Maxkm);
    Readln;
End.