нужно спасение ваше

[konfetka13]

помогите пожалуйста доделать!!я создала файл и вытащила из него данные!

а еще нужно:
1)напечатать записи,в которых значение поля "стаж водителя" больше 25,а "пробег" больше 100000 по №АТП,вводимому с клавиатуры.
2)Удалить несколько записей с фамилиями,задаваемыми с клавиатуры.
кому не лень пожалуйста помогите. заранее большое спасибо

program fales;
uses crt;
type
mash=record
atp:string[10];
fam:string[15];
marka:string[10];
stag:string[10];
probeg:string[10];
benz:string[10];
end;
var

mas:array[1..100] of mash;
f:file of mash;
a,b,i,q,n:integer;
begin
textcolor(white);
clrscr;
gotoxy(25,5);
writeln('Present');
readkey;

assign(f,'e:/student/2-3/Sharipov/fail.txt');
clrscr;
gotoxy(25,2);
writeln('Введите колчество записей=');
gotoxy(53,2);
readln(n);

gotoxy(1,5);
writeln('╔═══════╦═════════════╦═══ ══════════╦════════════════════╦═══ ════╦══════════╗');
writeln('║ #АТП ║ Фам.водителя║ Марка машины║Стаж работы водителя║ Пробег║ Сумарный ║') ;
writeln('║ ║ ║ ║ ║ ║расход бен║') ;
writeln('╠═══════╬═════════════╬═══ ══════════╬════════════════════╬═══ ════╬══════════╣') ;
for i:=1 to n do
begin
writeln('║ ║ ║ ║ ║ ║ ║');
writeln('║ ║ ║ ║ ║ ║ ║');
end;
writeln('╚═══════╩═════════════╩═══ ══════════╩════════════════════╩═══ ════╩══════════╝');



rewrite(f);
q:=1;
for i:=1 to n do
begin
gotoxy(2,9+q);
readln(mas[i].atp);
gotoxy(10,9+q);
readln(mas[i].fam);
gotoxy(24,9+q);
readln(mas[i].marka);
gotoxy(38,9+q);
readln(mas[i].stag);
gotoxy(59,9+q);
readln(mas[i].probeg);
gotoxy(67,9+q);
readln(mas[i].benz);
write(f,mas[i]);
q:=q+2;
end;




textcolor(green);
clrscr;
gotoxy(25,2);
writeln('Данные из файла');
gotoxy(1,5);
writeln('╔═══════╦═════════════╦═══ ══════════╦════════════════════╦═══ ════╦══════════╗');
writeln('║ #АТП ║ Фам.водителя║ Марка машины║Стаж работы водителя║ Пробег║ Сумарный ║') ;
writeln('║ ║ ║ ║ ║ ║расход бен║') ;
writeln('╠═══════╬═════════════╬═══ ══════════╬════════════════════╬═══ ════╬══════════╣') ;
for i:=1 to n do
begin
writeln('║ ║ ║ ║ ║ ║ ║');
writeln('║ ║ ║ ║ ║ ║ ║');
end;
writeln('╚═══════╩═════════════╩═══ ══════════╩════════════════════╩═══ ════╩══════════╝');



reset(f);
q:=1;
for i:=1 to n do
begin
read(f,mas[i]);
gotoxy(2,9+q);
writeln(mas[i].atp);
gotoxy(10,9+q);
writeln(mas[i].fam);
gotoxy(24,9+q);
writeln(mas[i].marka);
gotoxy(38,9+q);
writeln(mas[i].stag);
gotoxy(59,9+q);
writeln(mas[i].probeg);
gotoxy(67,9+q);
writeln(mas[i].benz);
q:=q+2;
end;
readkey;
end.

[Serge_Bliznykov]

1) почему тема такая?! Почитайте правила!

2) обязательно используйте тег [СODE] [/СODE] (кнопочка с # )
иначе потом форматировать код приходится!!!

3) очень неплохо бы добавить в Вашу программу меню (это несложно, тут на форуме я выкладывал пример простейшего текстового меню на TurboPascal)

4) 1-ю задачу сделал. смотрите во вложении. разбирайтесь.
будут вопросы - welcome

5) для удаления записей из типизированного файла делают так:
копируют нужные записи во временный файл. после окончания записи. закрывают его. исходный файл или переименовывают в *.BAK (или просто удаляют), временный файл переименовывают в файл с исходным именем.
будут вопросы - помогу.

[konfetka13]

2)Удалить несколько записей с фамилиями,задаваемыми с клавиатуры.
кому не лень пожалуйста помогите. заранее большое спасибо

я не понимаю как сделать помогите ...=( умоляю !мне к завтрашнему дню а я вообще даже примерно не знаю. дурочка я

[konfetka13]

помогите пожулуйста

[konfetka13]

помогите мне надо очень

[DoDge_VipeR]

2)Удалить несколько записей с фамилиями,задаваемыми с клавиатуры.
{считывайте в массив ну а потом }

rewrite(f);
k:=n;
for i:=1 to n do
if mas[i].fam <>'нужная фамилия' then write(f,mas[i]);
else k:=k-1;
close(f);
n:=k;