Строки

[surf135]

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

[Grag]

SPLITE(name:string var first,Last:string) - больше похоже на ПОДпрограмму, ака процедуру....

[Stilet]

Имя и фамилия разделены некоторыми числом пробелов.

 First:=copy(name,1,pos(' ',name));
 delete(name,1,pos(' ',name));
 Last:=Trim(name);

Идея понятна?

[surf135]

Идея не совсем понятна!

[Stilet]

Ну а что тут неясного?
First:=copy(name,1,pos(' ',name)); - копируем до первого пробела сначала строки (тут бы нужно написать trim(name) для надежности)
delete(name,1,pos(' ',name)); - Потом удаляем то что до первого пробела
Last:=Trim(name); - и очистив остатки от возможных пробелов получаем вторую часть.