Файлы (куда без них:)) Опции

[Dimusik]

В прошлом я уже задавал эту задачку но что-то никто не захотел помочь. Напомню
В файле хранится информация о правонарушениях по региону N за 5 лет в следующем виде: наименование правонарушения и кол-во правонарушений данного вида за каждый год. Извесно кол-во жителей данного региона.Сформировать файл, в котором кроме перечисленной информации имеется 2 графы: кол-во преступлений данного вида в расчете на душу населения и среднегодовое кол-во преступлений данного.
Очень нужна программа для работы. Просьба вылаживать свои мысли по этому.

[Гость]

подкоректируйте прогу

Код

Program baza;uses crt;
type prav=record
name:string[20];
count:array[1..5] of integer;
end;
var f1:file of prav;
cnt,year:real;S:string;
i:integer;
begin
textcolor(green);clrscr;
write('Vvedite imya faila:');
readln(S);
assign(f1,S);
rewrite(f1);
for i:=1 to 5 do
    begin
    write('Vvedite kol-vo giteley regiona:');
    readln(count);
    write('Vvedite pravonarushenie:');
    readln(name);
    1: write('Vvedite kol-vo pravonarusheniy:');
    readln(count1);
        begin
            if count1>count then
                write('Nepravilny vvod.Povtorite snova!!!');
                goto 1;
        end;
    write(f1,prav)

    year:=year+count[i]
    year:=year/5;
           end.

она не совсем завершена. Многие моменты не совсем ясны.