Как три строковых переменных вывести на разных строках?

....
writeln(a);
writeln(b);
writeln(c); // a,b,c - строки

 uses crt;
 
 var s,sl:string;
     i:integer;
 begin
    readln(s);
    s:=s+' ';
    For i:=1 to length(s) do
    If s[i]<>' ' then sl:=sl+s[i] else
    begin
    writeln(sl);
    sl:='';
    end;
 end.

 uses crt;
 
 var s,sl:string;
     i:integer;
     
 Function Slovo(s,sl:string; i:integer):string;
    begin
    inc(i);
    If s[i]<>' ' then
           sl:=sl+s[i] else
           begin
           writeln(sl);
           sl:='';;
           end;
    If i=length(s) then else slovo(s,sl,i);
    end;
 begin
    readln(s);
    s:=s+' ';
    slovo(s,sl,i);
 end.

 uses crt;
 
 var s,sl:string;
     i:integer;
 
 Procedure Slovo(s,sl:string; i:integer);
    begin
    inc(i);
    If s[i]<>' ' then
           sl:=sl+s[i] else
           begin
           writeln(sl);
           sl:='';;
           end;
    If i=length(s) then else slovo(s,sl,i);
    end;
 begin
    readln(s);
    s:=s+' ';
    slovo(s,sl,i);
 end.

Uses CRT;
Var s:string;
begin
 readln(s);
 writeln(copy(s,1,pos(' ',s)-1));
 delete(s,1,pos(' ',s));
 writeln(copy(s,1,pos(' ',s)-1));
 delete(s,1,pos(' ',s));
 writeln(s);
end.