помогите.[двумерные массивы+записи], помогите решить задачку.пожалуйста. Опции

[TreyOl]

В N городах провели обследование жителей на предмет употребления или не-употребления ими наркотиков (1 - употребляет, 0 - не употребляет). Результаты обсле-дования жителей поступают не упорядоченными по городам. Определить города с мак-симальной тенденцией к употреблению наркотиков.

должна быть запись из 4-ех городов. Напримерм. магнитогорск.саратов.пермь.ульяновск.

исполнителю идет текст.
он отвечает магнитогорск 1.
следующий саратов 0.
магнитогорск 1.
и т.д.
в конце вывести у кого максимум.

[Гость]

Ну record, так record.Вы покажите,как вы пытались решить эту задачу,чтобы было видно,что вы пытались решить ее.

[TreyOl]

Ну record, так record.Вы покажите,как вы пытались решить эту задачу,чтобы было видно,что вы пытались решить ее.

Сначала так.
uses crt;
const n=10;
var
a:array [1..n,1..2] of integer;
i,kol,kol1,m: integer;
begin
writeln('введите город');
readln(m);
writeln('введите колличесвто жителей употребляющие наркотики, kol');
readln(kol);
writeln('введите колличесвто жителей НЕ употребляющие наркотики, kol1');
readln(kol1);
a[m,1]:=0;
a[m,2]:=0;

a[m,1]:=a[m,1]+kol;
a[m,2]:=a[m,2]+kol1;

writeln('употребляют ',a[m,1],',а не употребляют ', a[m,2]);
end.
______________________________________________
но потом сказали что нужен record.
и вот только до этого дошла.
и то ошибки(


uses crt;
type town=record;
name:(Magnitogorsk,Saratov,Mockva,Perm);
kol:0,1: byte;
end;

var
a:array [1..n] of integer;
i:integer;
t1,t2: town;

begin


writeln('введите город');
readln(t1.name);
writeln('употребляешь нарктотики');
readln(t1.kol);
end.