Pascal.Строки

[blondinochka]

Дана последовательность символов латинского алфавита и пробелов. Группу символов, разделенную с одной или обеих сторон пробелами и не содержащую внутри себя пробелов, назовем словом. Поменять порядок следования букв на обратный в тех словах, которые имеют длину более 9 символов. Подсчитать количество таких слов.
Подскажите пожалуйста что нужно изменить в программе чтобы она не обращалась к файлу, строка вводилась с клавиатуры и искала и изменяла слова длиной больше 9 символов

program maxl;
uses crt;
var
  fin,fout:text;
  c:char;
  s:string;
  i,lenmax:integer;
  kol:longint;

procedure fromin;
begin
read(fin,c);
if c=' ' then begin
  if s<>'' then begin
    if lenmax=length(s) then inc(kol);
    if lenmax<length(s) then begin
      lenmax:=length(s);
      kol:=1;
      end;
    s:='';
    end;
  fromin;
  end
else s:=s+c;
end;

procedure intoout;
begin
read(fin,c);
if c=' ' then begin
  if s<>'' then begin
    if length(s)=lenmax then begin
      for i:=lenmax downto 1 do write(fout,s[i]);
      write(fout,' ');
      end
    else write(fout,s,' ');
    s:='';
    end
  else if (c=#32)or(c=#13)then write(fout,c);
  intoout;
  end
else s:=s+c;
end;



BEGIN

s:='';
assign(fin,'in.txt');
reset(fin);
while not eof(fin) do fromin;
close(fin);

assign(fin,'in.txt');
reset(fin);
assign(fout,'out.txt');
rewrite(fout);
s:='';
while not eof(fin) do intoout;

writeln(fout);writeln(fout);
writeln(fout,kol);
close(fin);
close(fout);

END.

[Stilet]

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

read(fin,c); на read(c);
из write(fout,..); убрать fout,
И главное

BEGIN
s:='';
fromin;
intoout;
writeln(kol);
END.

П.С. Я бы по другому сделал...

[blondinochka]

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

[blondinochka]

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