задача на паскале тема текстовые файлы, записи

[шушара]

создать текстовый файл car.txt , содержащий информацию о машинах (марка, год выпуска, цвет, номер). Переписать в текстовый файл информацию о машинах черного цвета, упорядоченную в порядке убывания года выпуска. Вывести на экран марки машин, номера которых начинаются на букву М.
решение нужно ОЧЕНЬ СРОЧНО, помогите пожалуйста, и если не сложно напишите пояснения, чтобы было понятно как решать подобные задачи.

[Mad_Cat]

Насколько срочно?? Зарплата будет?

[шушара]

оч срочно

зарплата? а вы благотворительно не можете? (((

[Mad_Cat]

 const fn='car.txt';
       bfn='bcar.txt';
 type TCar=record
  mark:string[30];
  year:Integer;
  color:string[20];
  Num:string[9];
 end;
 var f:Text;
    i,n,k:Integer;
    tmp:TCar;
    B:array[1..100] of TCar;
    f1:Boolean;
begin
k:=0;
 Assign(f,fn);
 Rewrite(f);
 Write('N=');readln(n);
 for I := 1 to n do
   begin
    Write('mark=');readln(tmp.mark);
    Write('year=');readln(tmp.year);
    Write('color=');readln(tmp.color);
    Write('Num=');readln(tmp.Num);
    writeln(f,tmp.mark);
    writeln(f,tmp.year);
    writeln(f,tmp.color);
    writeln(f,tmp.Num);
   end;
  close(f);
  Reset(f);
  for I := 1 to n do
   begin
    readln(f,tmp.mark);
    readln(f,tmp.year);
    readln(f,tmp.color);
    readln(f,tmp.Num);
    if tmp.color='Black' then begin
     k:=k+1;
     b[k]:=tmp;
    end;
     if tmp.Num[1]='M' then begin
    writeln(f,tmp.mark);
    writeln(f,tmp.year);
    writeln(f,tmp.color);
    writeln(f,tmp.Num);
    Writeln('---------------------------------------');
    end;
   end;
   Close(f);
 f1:=True;
 while f1 do begin
 f1:=False;
 for I := 1 to K - 1 do
   if b[i].year<b[i+1].year then
   begin
     tmp:=b[i];b[i]:=b[i+1];b[i+1]:=tmp;f1:=True;
   end;
 end;
 Assign(f,bfn);
 Rewrite(f);
 for I := 1 to K - 1 do begin
  writeln(f,b[i].mark);
  writeln(f,b[i].year);
  writeln(f,b[i].color);
  writeln(f,b[i].Num);
end;
  Close(f);
  Readln;
end.

[VKorablev]

ну ты какаха ....моглибы и денег на лентяе заработать :D