строки

[sllh_111]

Помогите доделать задачу, язык программирования- Паскаль.

Создать текстовый файл, состоящий из нескольких строк любым возможным способом. Удалить строки, начинающиеся со строчной или прописной буквы «о». Дописать изменённый файл вначале самой длинной, затем самой короткой строкой изменённого файла.

вот это я сделал, а дальше немогу

Создать текстовый файл, состоящий из нескольких строк любым возможным способом. Удалить строки, начинающиеся со строчной или прописной буквы «о».

procedure ex_5;
begin
assign(f1,'INPUT.TXT');
rewrite(f1); writeln('‚ўҐ¤ЁвҐ N: ');
readln(n2);

writeln('‚ўҐ¤ЁвҐ бва®ЄЁ: ');
for i2:= 1 to n2 do  begin
readln(s2);
writeln(f1,s2);
end;
close(f1);

reset(f1);
assign(f2,'OUTPUT.TXT');
rewrite(f2);
while not eof(f1) do
begin
readln(f1,s2);
if (s2[1]='‹') or (s2[1]='«') then write else
writeln(f2,s2);
end;
close(f1); close(f2);

writeln;
writeln('‘ва®ЄЁ ў® ўв®а®¬ д*©«Ґ: '); reset(f2);
while not eof(f2) do
begin
readln(f2,s2);
writeln(s2);  q:=1;
for i:= 1 to length(s2) do
if i> q then q:= i; if i = q then  reset(s2);

writeln;
end; readkey; writeln('izmenen fail: '); end;