Работа со строками

program stroka;
uses crt;
var
  s, s1,  sgl, H: string;
  sl, s1l, i, sgln, Hn, pr: integer;
begin
 
  sgl := 'бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
  H := 'хХ';
 
  write('Введите первую строку: ');
  readln(s);
  write('Введите вторую строку: ');
  readln(s1);
  sl := Length(s);
  s1l := Length(s1);
  pr := 1;
  if sl > s1l
  then begin
    for i := 1 to sl do
    begin
 
      if pos(s[i], sgl) > 0
        then inc(sgln);
      if s[i] = ' '
        then inc(pr);
    end;
    writeln(' В первой строке кол-во согласных букв = ', sgln, ' и слов = ', pr);
    pr := 1;
    for i := 1 to s1l do
    begin
      if pos(s1[i], h) > 0
        then inc(hn);
 
      if s1[i] = ' '
        then inc(pr);
    end;
    writeln('Во второй строке кол-во букв "Х" = ', hn,  ' и слов = ', pr);
  end
  else begin
    for i := 1 to s1l do
    begin
 
      if pos(s1[i], sgl) > 0
        then inc(sgln);
      if s1[i] = ' '
        then inc(pr);
    end;
    writeln('Во второй строке кол-во согласных букв = ', sgln, ' и слов = ', pr);
    pr := 1;
    for i := 1 to sl do
    begin
      if pos(s[i], h) > 0
        then inc(hn);
 
      if s[i] = ' '
        then inc(pr);
    end;
    writeln('В первой строке кол-во букв "Х" = ', hn,  ' и слов = ', pr);
  end;
  for i :=1 to length (s1) do begin
  if s[i]=' ' then begin
  if s>s1 then
  s1:=copy (s,1,3)+' '+ copy (s1, 1, i-pr-1);
  writeln ('s1=',s1);
  end;
  pr:=1;
  end;
end.