Строковый тип. Описать функцию splite(name:string:var first,last:string)

uses crt;
var fi,na,fa: string;
 
procedure Splite(name:string;var first,last:string);
var i,l,k: byte;
begin
k:=0;
l:=length(name);
if name[1]=' ' then
   repeat
   delete(name,1,1);
   until name[1]<>' ';
if name[l]=' ' then
   repeat
   delete(name,l,1);
   dec(l);
   until name[l]<>' ';
for i:=1 to l-1 do
    if (name[i]=' ') and (name[i+1]<>' ') then inc(k);
if k=0 then
   begin
   first:='error1: only 1 word';
   last:='error1: only 1 word';
   end else if k>1 then
       begin
       first:='error2: more words than 2';
       last:='error2: more words than 2';
       end else
           begin
           first:=''; i:=1;
           while name[i]<>' ' do
                 begin
                 first:=first+name[i];
                 inc(i);
                 end;
           last:='';
           i:=l;
           while name[i]<>' ' do
                 begin
                 last:=name[i]+last;
                 dec(i);
                 end;
           end;
end;
 
begin
write('Имя, фамилия: '); readln(fi);
Splite(fi,na,fa);
writeln('Имя: ',na);
writeln('Фамилия: ',fa);
end.