Помогите написать программу, которая формирует файл записей

[Guest]

написать программу, которая формирует файл записей данной структуры
Type vladelez=Record
familia:string;
Adress:string;
avto:stringNomer:string;
vypusk:1900..2000;
и определяет:
- количество автомобилей каждой марки
- владельца самого старого авто
- фамилии владельцев и номера авто данной марки
в турбо паскале


Добавлено: Program Avtomobil;
Uses crt;
Type vladelez = Record
Familia:string;
Address:string;
Avto:string;
Nomer:string;
Vypusk: 1900..2000;
End;
Var f:text; k:vladelez; m:string; kol,i,l:byte;

Begin clrscr;
Assign(f,’auto.txt’);
Rewrite(f);
For i:=1 to 5 do
Begin
Write('Введите фамилию '); Readln(k.familia);
Write('Введите адрес '); Readln(k.address);
Write('Введите марку авто '); Readln(k.avto);
Write('Введите номер авто '); Readln(k.nomer);
Write('Введите год авто '); Readln(k.vypusk);
End;

{ Находим количество автомобилей каждой марки}
Reset(f);
For i:=1 to 5 do
For l:=i+1 do 5 do Begin
Begin m:=k.avto;
If k.avto = k.avto[l] then inc(kol);
End;
Writeln('Марка – ',m,' Количество – ', kol);
End;
Close(f);

{Находим владельца самого автомобиля}
Reset(f);
For i:=1 to 5 do Writeln('Авто – ',k.avto,' Выпуск – ',k.vypusk, ' Владелец – ',k.familia);
Close(f);



{ фамилии владельцев и номера автомобилей данной марки};
Reset(f);
Write('Введите марку авто');Readln(m);
For i:=1 to 5 do If m=k.avto then Write('Фамилия – ',k.familia,' Номер – ', k.nomer);
Close(f);
Readkey
end.

 

[Cambur]

Привет, если годится на Delphi - сделаю за 5 минут. Паскаль у меня не установлен..
запись k.avto тебе выдаст букву с порядковым номером i строки avto.
вероятно, это не то, что тебе надо.
в Delphi это будет так k : array[1..5] of vladelez;
в этом случае обращение к avto будет k.avto
подправь, если повезёт - всё заработает... я вообщем-то код по диагонали пробежал.. новый год, однако..
если что
venezuela@mail.ru

 

[Guest]

Привет, если годится на Delphi - сделаю за 5 минут. Паскаль у меня не установлен..
запись k.avto тебе выдаст букву с порядковым номером i строки avto.
вероятно, это не то, что тебе надо.
в Delphi это будет так k : array[1..5] of vladelez;
в этом случае обращение к avto будет k.avto
подправь, если повезёт - всё заработает... я вообщем-то код по диагонали пробежал.. новый год, однако..
если что
venezuela@mail.ru

Cпасибо большое=)) помогло=)) да и еще ошибка фаил не записала=))) все сдала все работает=)))