Строковые переменные и файлы в Паскале

[Hichcog]

1)Составить программу, удаляющую из данного слова все буквы "о".

2)Ввести текст, состоящий не менее чем из 12 слов. Определить наличие вхождений символов «no» в каждом слове текста.

3)Создайте файл f, компоненты которого являются целыми числами. Напишите программу подсчета нечетных и четных компонент файла f и определите, каких из них больше. Результаты запишите в файл.

Помогите пожалуйста разобраться с задачами, вот мои наброски:

1) program slovo;
var s: String[50];
i: integer;
begin
writeln('vvedite slovo');
read(s);
i:=pos('o',s);
if i=0 then writeln('bykv o net')
else
begin
while i>0 do
begin
delete (s,pos('o',s),1);
i:=pos('o',s)
end;
writeln('polycheno slovo');
writeln(s);
end;
readln;
end.

2) program slovo;
var x: string[12];
d,s,i:integer;
begin
writeln('vvedite slovo');
read(x);
d:=length(x);
s:=0;
for i:=1 to d do
if copy(x,i,1)='no'
then s:=s+1;
if s<>0 then writeln ('kolichestvo bykv"no" v slove',x,'ravno',s)
else writeln('slovo ne soderzet bykv "no"');
end.


3) uses crt;
var f,g,h:file of integer;
a:integer;
c:char;
begin
clrscr;
assign(f,'c:\downloads\f');
rewrite(f);
assign(g,'c:\downloads\g');
rewrite(g);
assign(h,'c:\downloads\h');
rewrite(h);
writeln('Vvedite v fail F celye chisla, okonchanie vvoda Esc:');
repeat
write('a=');
readln(a);
write(f,a);
c:=readkey;
until c=#27;
reset(f);
writeln('Ishodnyj fail:');
while not eof(f) do
begin
read(f,a);
write(a,' ');
if odd(a)then write(h,a)
else write(g,a);
end;
close(f);
writeln;
reset(g);
writeln('Fail chetnih chisel:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);
writeln;
reset(h);
writeln('Fail nechetnih chisel:');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(h);
readln
end.

[GetMax]

Первая

Var
  S:String;
begin
  Readln(S);
  While Pos('o',s) > 0 do
  Begin
    Delete(S,Pos('o',s),1)
  End;
  Write(S);
  Readln
End.