Вывести первое слово строки, если первый символ строки-пробел - Pascal ABC

uses crt;
var
s1, s2, s3, s4 : string;
k, n, i : byte;
a : set of char;
ch : char;
begin
s2 := '';
s4 := '';
a := [];
write('строка S1= ');
readln(s1);
n := length(s1);
writeln('длина строки S1 = ', n, ' символов');
write('первое слово:');
i := 1;
while (i <= n) and (s1[i] <> ' ') do
begin
write(s1[i]);
include(a, s1[i]);
s4 := s4 + s1[i];
i:=i+1;
end;
writeln;
writeln('введите символы строки S2 (окончание ввода цифра):');
repeat
ch := readkey;
if ch in a then
begin
write(ch);
s2 := s2 + ch
end
until ch in ['0'..'9'];
writeln;
writeln(s4);
s3 := concat(s1, s2);
writeln('объединенная строка: ', s3);
while (pos( S4,  S3) <> 0) do
delete( S3, pos(S4,S3) , length(S4));
Writeln('третья строка без вхождений первого слова:');
writeln(S3);
end.