строки-string

[Полина1234]

Помогите пожалуйста(строки-string):
1.вводится строка слов.вывести слова в обратном порядке.
2.составить программу, которая в слове "класс" две одинаковые буквы обозначает цифрой "1".

[NikiToZz_]

Не компилировал!
1)

  var st,st1,st2:string;
    i:integer;
  begin
       read(st);
       st:=st+' ';
       while pos('  ',st)<>0 do
           delete(st,pos('  ',st),1);
       while i<=length(st) do   begin
              while st[i]<>' ' do begin
                    st1:=st[i]+st1;
                    inc(i);
              end;
              st2:=st2+st1+' ';
              st1:='';
              inc(i);
       end;
       write(st2);
  end.

2)

var st:string;
    begin
         read(st);
         write('кла1');
    end.

2а)

var st,st1:string;
    i:integer;
begin
    read(st);   st1:='';
    while i<=length(st) do
         if (i<length(st)) and (st[i]=st[i+1]) then begin st1:=st1+'1'; inc(i,2) end else
         if st[i]<>st[i+1] then begin st1:=st1+st[i]; inc(i); end;
    write(st1);

end.