найди ошибку

[surf135]

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

function fio (st:string):boolean;
var
i:integer;
begin
fio:=true;
if ord(st[1])>=160 then fio:=false;
for i:=2 to length(st) do
if ord(st[i])<160 then fio:=false;
end;

procedure splite(name:string; var first:string; var last:string);
begin

writeln(first,'first');
for i:=1 to length(NAME) do
if name[i]<>' ' then first:=first+name[i] else break;
writeln(i,'i'); if (i) < length(name) then
while name[i]=' ' do
inc(i);
for j:=i to length(NAME) do
if name[j]<>' ' then last:=last+name[j] else break;
If (length(first)<2) or (length(last)<2) then first:='0';
If length(name)>j then first:='0';
If (not(fio(first))) or (not(fio(last))) then first:='0';
end;

begin
repeat
writeln('Введите Фамилию и Имя:');
first:=' ';
last:=' ';
readln(name);
splite(name,first,last);
writeln(first, 'first');
if first='0' then writeln('Ошибка! Не соответствие шаблону <Фамилия Имя>');
until first<>'0';
writeln(last,' ',first);
readln;
end.

[surf135]

До меня уже дошло как решать!Все решил!Но все = спасибо что просмотрели))))