Создание сайтов и программирование

 Отправлено: 25.12.09 11:48. Заголовок: не получается удалить 2 строки, паскаль

Здраствуйте. Помогите отредактировать программу. Есть квиток,который имеет вид
Предприятие Ноябрь 2009 г.
Подр-е:4400 3895( 3): РЫМАРЕНКО О.А.
------------------------------------------------------------
М код начисл. рв сумма | М код удерж. сумма
10 104 OKЛAД 10.00 563.78 |10 305 НалогФЛ -535.00
10 106 ОКЛАД/ч 65.00 -1534.33 |10 325 ПPOФC. -11.16
10 199 P/K ФЗП -145.58 |11 347 Недвиж. 500.00*
11 107 ПO CPEД 9.00 5669.37 |11 305 НалогФЛ 722.00
11 280 БЛ Пр.2 1.00 384.21 |11 325 ПPOФC. 56.69
ИТОГО 4937.45 | ИТОГО 232.53
|
| Межрасчетные выплаты:
|11 302 KACCA 3000.00
------------------------------------------------------------
ВСЕГО начислено 4937.45 | удержано 3232.53
------------------------------------------------------------
в вед. за месяц 1704.00 остаток 0.92

Табель: 0ГГ0ГГ10ГГГГГ1БООООООООООООООО
этот квиток находится в текстовом файле. я написала программу,которая обращается к нему и выводит этот текст на экран. Далее мне инеобходимо ,что бы из этого квитка не выводились на экран(на печать) две строки
10 104 OKЛAД 10.00 563.78 |10 305 НалогФЛ -535.00
10 106 ОКЛАД/ч 65.00 -1534.33 |10 325 ПPOФC. -11.16
помогите найти ошибку
PROGRAM WW;
var
f: text;
s: string[100];
i: byte;
str: char;
begin
assign(f,'c:\1.txt');
reset(f);
while i<=length(s)+1 do
begin
if (str:=(s[1]+s[2]))>=11
then
begin
readln (f,s);
writeln(s);
end;
else
Delet(s,0,80);
end;
close (f);
readln;
end.

 Отправлено: 25.12.09 12:33. Заголовок: А это вообще компили..

А это вообще компилируется?

 Отправлено: 25.12.09 14:02. Заголовок: нет..

нет

 Отправлено: 25.12.09 14:04. Заголовок: первоночально была т..

первоночально была такая программаPROGRAM WW;
var
f: text;
s: string[100];
begin
assign(f,'c:\1.txt');
reset(f);
while not Eof (f) do
begin
readln (f,s);
writeln(s);
end;
close (f);
readln;
end.
она просто выводила на экран данный квиток. теперь надо ,чтоб без 2х строчек

 Отправлено: 25.12.09 15:02. Заголовок: Если не компилируетс..

Если не компилируется, значит читайте, что пишет компилятор, в какой строке и какая ошибка.