Программа о статистике употребления наркотиков в разных городах, Помогите подредактировать. Опции

[TreyOl]

(начало тут: помогите.[двумерные массивы+записи] , Lapp )

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

uses crt;
const n=4;
type
 town=(Magnitogorsk,Saratov,Moscow,Perm);
type city=record
name:town;
nar: byte;
kol: integer;
end;

var
temp:string;
arr :array[1..n] of city;
i:integer;
Ans:char;
Tname:town;
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('Vvedite gorod');
 readln(temp);
 if temp='Magnitogorsk' then
	Tname:=Magnitogorsk
 else
  if temp='Saratov' then
	Tname:=Saratov
  else
	if temp='Moscow' then
	   Tname:=Moscow
	else
	  if temp='Perm' then
		 Tname:=Perm
	  else
		writeln('Vi vveli neverniy gorod');

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('prodolzit* vvod?(y/n)');
Ans:=readkey;
until ans<>'y';
for i:=1 to n do
 writeln(i,' ', arr[i].kol);

readln;
end.

Сообщение отредактировано: Lapp - 17.02.2012 6:06