помогитею
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.