составить процедуры в паскаль

[Ksesha]

помогите пожалуйста составить программы: 1.Сведения об автомобиле состоят из его марки и номера, фамилии владельца и величины пробега, информации о нарушении владельцем правил (сколько у водителя «проколов»), даты последнего техосмотра (число, месяц и год). Создать файл, содержащий информацию о владельцах автомобилей нашего города. Выдать на экран монитора информацию о нарушениях правил и о тех, кто прошел техосмотр в мае 2010 года.
2. В файле хранится информация о том, какие книги вы взяли на научном и учебном абонементе в библиотеке в следующем виде: инвентарный номер, название, автор, срок, когда вы должны возвратить книгу, вид абонемента, признак того, сдали вы книгу или нет. Необходимо проверить, есть ли среди не сданных вами книг просроченные (на текущую дату), если такие книги есть, то сдать их или продлить еще на один срок. Вывести на экран монитора информацию о всех не сданных вами книгах.
Помогите, прошу. Я тупень натуральный в этом просто

[Stilet]

Даже попытки не покажешь?

[Ksesha]

Сообщение от Stilet

Даже попытки не покажешь?

я даже представления не имею как с процедурами работать...

[Stilet]

А без процедур?

[Ksesha]

Сообщение от Stilet

А без процедур?

мне надо составить две программы с процедурами.

[Stilet]

Ну понятно все )

1.Сведения об автомобиле состоят из его марки и номера, фамилии владельца и величины пробега, информации о нарушении владельцем правил (сколько у водителя «проколов»), даты последнего техосмотра (число, месяц и год). Создать файл, содержащий информацию о владельцах автомобилей нашего города. Выдать на экран монитора информацию о нарушениях правил и о тех, кто прошел техосмотр в мае 2010 года.

type
 TData=record day,mon,year:byte;end;
 TAuto=record
  mark,nom,FIO:String[255];
  probeg,prokols:integer;
  teh:tdata;
 end;
var f:file of TAuto;

procedure create;
var a:Tauto;
begin
 Assign(f,'file'); rewrite(f);
 repeat
  writeln('Введи авто:');
  write('Марка:':20);readln(a.mark);
  write('Номер:':20);readln(a.nom);
  write('ФИО:':20);readln(a.FIO);
  write('Пробег:':20);readln(a.probeg);
  write('Проколов:':20);readln(a.prokols);
  write('День':25);readln(a.teh.day);
  write('Месяц':25);readln(a.teh.mon);
  write('Готт':25);readln(a.teh.year); write(f,a);
  write('Все? Если да - жмакни ESC');
 until readkey=#27
 close(f);
end

procedure cropenate;
var a:Tauto;
begin
 Assign(f,'file'); reset(f);
 while not eof(f) do begin
  read(f,a); if (a.teh.year<>2010) and (a.prokols=0) then continue;
  write(a.mark:20,a.nom:20,a.FIO:20,a.probeg:10,a.prokols:5,
     a.teh.day,'.',a.teh.mon,'.',a.teh.year);
 end
 close(f);
end

begin
 create;
 open;
 readln;
end.

[Ksesha]

Спасибо огромное))