Программа на записи

[Юля 19]

Запись содержит сведения о простоях в цехах. Структура записи:
 Дата;
 Номер цеха;
 Номер участка;
 Продолжительность простоя.
Выдать сведения о цехах, продолжительность простоя в которых более 1 часа


эх, помогите написать что нить ,конечно желательней всё ,потомучто покусочкам я всё равно ничего не соображу .

[Chertenok_n_13]

program m_1;
uses crt;
type
ceh = record
data:string;
nomer:byte;
nomer_uch:byte;
prostoj:integer;
end;

var
ceh2: array [1..40] of ceh;
n:byte;

procedure vvod;
var i:byte;
begin
writeln('vvedite kol-vo zapicej');
readln(n);
for i:=1 to n do begin
clrscr;
writeln('zapis', i);
writeln('vvedite datu');
readln(ceh2[i].data);
writeln('vvedite nomer ceha');
readln(ceh2[i].nomer);
writeln('vvedite nomer uchastka');
readln(ceh2[i].nomer_uch);
writeln('vvedite prodoljitlnost prostoja (v minutah)');
readln(ceh2[i].prostoj);
end;
end;

procedure poisk;
var i:byte;
begin
clrscr;
writeln('------------------------------------------------------------');
writeln('|   data   | nomer ceha | nomer ucahstka | prostoj (minut) |');
writeln('------------------------------------------------------------');
for i:=1 to n do
if ceh2[i].prostoj>=60 then
writeln('|', ceh2[i].data:10, '|', ceh2[i].nomer:12, '|', ceh2[i].nomer_uch:16, '|', ceh2[i].prostoj:17, '|');
writeln('-------------------------------------------------------------);
readln;
end;

нуу, основную программу думаю сама напишешь

[Юля 19]

string constant exceedens line
и показывает там где я выделила ,что б я знала что там писать(
writeln('-------------------------------------------------------------);
readln;
end;

[Chertenok_n_13]

writeln('-------------------------------------------------------------);

забыла конце кавычку закрыть.

writeln('-------------------------------------------------------------');

поставь ее и все будет работать.

[Hacker19_90]

АПОСТРОФ ЗАБЫЛИ!
ЭТО ВОТ ТАКОЙ СИМВОЛ
смотреть сюда----------------> ' <-------------------------- смотреть сюда

[Юля 19]

блин,ну вы уже конкретно издеваетесь)) лучше по программе дописать)

[Serge_Bliznykov]

Сообщение от Юля 19

блин,ну вы уже конкретно издеваетесь)) лучше по программе дописать)

Юля 19, Вам написали программу, что Вас не устраивает? В чём Вы раглядели издевательство? В том, что Вы не понимаете нужную Вам тему и код программы?!


основная программа будет выглядеть так:

begin
   vvod;
   poisk;
end.

[Юля 19]

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

Юля 19, Вам написали программу, что Вас не устраивает? В чём Вы раглядели издевательство? В том, что Вы не понимаете нужную Вам тему и код программы?!


основная программа будет выглядеть так:

begin
   vvod;
   poisk;
end.

да я вообще не рублю что происходит , код посмотришь и вроде всё ясно. а вот придумать самой как-то тяжелова-то