Дорешать строку

[surf135]

Напишите программу SPLITE(name:string var first,Last:string),
которая из параметра name,хранящего имя и фамилию
извлекает их в переменные first(имя)и last(фимилия).
Имя и фамилия разделены некоторыми числом пробелов.
Необходимо также преусмотреть обнаружение и обработку
некорректных данных.

Uses Wincrt;
var
i,j,n:byte;
last,name,first:string;
procedure splite(name:string; var first,last:string);
begin
for i:=1 to length(name) do
if name[i]<>' ' then begin first:=first+name[i];

[Levsha100]

if name[i]<>' ' then
begin 
    if k=0 then 
    begin  
      first:=first+name[i];
      k:=k+1;
    end;
    if k=1 then
    begin  
      Last:=Last+name[i];
      k:=k+1;
    end;
    if k>1 then
    begin  
      error();
    end;
end;

[Ol'ga_new]

Попробуй такой вариант:
только совет: в процедуре завести переменную типа boolean;
по её значению проверять где заканчивается имя и начинается фамилия

var t:boolean;
...
{}
t:=false;{что означает не фамилия}
for i:=1 to length(name) do
  if name[i]<>' ' then 
    begin
     if t<>true then
        first:=first+ name[i] else
         last:=last+name[i];
    end 
    else t:=true;
end;{процедура готова!}

Работает при условии, что в начале строки нет пробелов.

[DoDge_VipeR]

procedure splite(name:string var first,Last:string)
var s:string;
begin
s:=name;
if s='' then exit;
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);// удалим лишние пробелы в строке
s:=trim(s);// удалим лишние пробелы в начале и конце
if s='' then exit;
first:=copy(s,1,pos(' ',s)-1);
last:=copy (s,pos(' ',s)+1,length(s)-pos(' ',s)+1);
end.

[surf135]

Спасибо!Большое!За Помощь!