файлы данных

1. создать файл, содержащий сведения о расчете сметы капитальных затрат. структура файла: номер строки; наименование оборудования; планируемое количество; состояние заказа (поставщик, дата размещения заказа; ожидаемая дата поставки; примечания); фамилия инженера-куратора.
2.составить программу, осуществляющую поиск информации по номеру строки и выводящую на печать данные о состоянии заказа.

первое задание сделала. вот
Program lab7;
var
f:text;
name:string[20];
t:string[255];
nomer,naimen,kolvo,postavsh,data,datapos t,fam:string[100];
begin
write ('vvedite ima faila');
readln (name);
assign (f,name);
rewrite(f);
repeat
t:='';
nomer:='';
naimen:='';
kolvo:='';
postavsh:='';
data:='';
datapost:='';
fam:='';
writeln ('nomer');
readln (nomer);
writeln('vvedite naimen');
readln (naimen);
writeln('vvedite kolvo');
readln (kolvo);
writeln('vvedite postavsh');
readln (postavsh);
writeln('vvedite data');
readln (data);
writeln('vvedite datapost');
readln (datapost);
writeln('vvedite fam');
readln (fam);

t:=nomer+'/'+naimen+'/'+kolvo+'/'+postavsh+'/'+data+'/'+datapost+'/'+fam;
writeln (f,t);

until t='//////';
close(f);
end.

а второе не могу.....
помогите, пожалуйста, кто может....

0