Строки

[surf135]

1)Напишите программу SPLITE(name:string var first,Last:string),
которая из параметра name,хранящего имя и фамилию
извлекает их в переменные first(имя)и last(фимилия).
Имя и фамилия разделены некоторыми числом пробелов.
2)Необходимо также предусмотреть обнаружение и обработку
некорректных данных.Нужно до делать второе.
var
i,j:integer;
last,name,first:string;
procedure splite(name:string; var first:string);
begin
for i:=1 to length(NAME) do
if name[i]<>' ' then first:=first+name[i]
else break;
for j:=i to length(NAME) do
if name[j]<>' ' then last:=last+name[j];
end;
begin
writeln('введите иия и фамилию ');
readln(name);
splite(name,first);
writeln(last,' ',first);
end.

[Vikenty]

Помогу аська 612-979-261