Переделайте с процедурами. Опции

[TreyOl]

Готовая программа, только требуют с процедурами что бы были команды.

помогитею

Код

uses crt;
const n=4;

type city=record
name:string;
nar: byte;
kol: integer;
end;

var
temp:string;
arr :array[1..n] of city;
i,max,q:integer;
Ans,nam:string;
Tname:string;
begin
arr[1].name:='Magnitogorsk';
arr[2].name:='Saratov';
arr[3].name:='Moscow';
arr[4].name:='Perm';
arr[1].kol:=0;
arr[2].kol:=0;
arr[3].kol:=0;
arr[4].kol:=0;

repeat
writeln('Введите город');
readln(temp);
for i:=1 to n do
  if temp=arr[i].name then Tname:=arr[i].name;

  if (temp<> arr[1].name) and (temp <> arr[2].name) and (temp<> arr[3].name) and (temp<>arr[4].name) then writeln('Вы ввели неверный город');
for i:=1 to n do
if Tname=arr[i].name then
begin
    writeln('употребляешь нарктотики?');
    readln(arr[i].nar);
    if arr[i].nar=1 then
     arr[i].kol:=arr[i].kol+1;
  end;
writeln('Производить ввод данных?(y/n)');
readln(ans);
until ans<>'y';

for i:=1 to n do
begin
writeln(i,' ', arr[i].kol);
  if max < arr[i].kol  then begin max:=arr[i].kol;
q:=i;

       end;
       end;
       writeln('Максимальное количество наркоманов в городе ',arr[q].name,', их ', max);


end.