Русский текст в Паскаль

program AAA;
uses crt;
var
    ls,lw,p,pr,i,a,res: integer;
    sn,sp,sx,w1:string;
    v: array[1..4] of integer;
begin
clrscr;
sp:=' ';
writeln('Введите строку символов:');
readln(sn);
if sn[ls]=' ' then
    begin
       sn:=sn;
    end
else
    begin
       sn:=concat(sn,sp);
    end;
ls:=length(sn);
for i:=1 to ls do
    begin
       if sn[i]=' ' then
          begin
             pr:=pr+1;
          end
       else
          begin
             pr:=pr;
          end;
    end;
writeln;
writeln('Общее количество слов: ',pr);
while pr>0 do
    begin
       p:=pos(sp,sn);
       w1:=copy(sn,1,p);
       lw:=length(w1);
       for i:=1 to lw do
          begin
              if w1[i]='a' then
                  begin
                     a:=a+1;
                  end
              else
                  begin
                     a:=a;
                  end;
           end;
        if a=3 then
            begin
                 res:=res+1;
            end
        else
            begin
                  res:=res;
            end;
        a:=0;
        delete(sn,1,p);
    ls:= length(sn);
    pr:=pr-1;
   end;
writeln;
writeln('Количество искомых слов: ',res);
writeln;
writeln('Конец программы. Нажмите любую клавишу');
readkey;
end.