Function, Как правильно прописать в функции... Опции

[Dima]

Задание:
Ввести с клавы слово и переместить первый символ в конец слова, если он не есть латинской буквой.

Без функции я это задание решил, но я еще не понимаю как его правильно прописать в функции. Подскажите плз. А еще лучше покажите...

[Артемий]

Вот посмотри:

function SetWord(var s: string): string;
var
len,i,o: Integer;
c: char;
begin
len:=length(s);
c:=s[1];
if (c>='a') and (c<='z') then
begin
 SetWord:='';
 exit;
end
else
s:=s+' ';
s[len+1]:=c;
Delete(s,1,1);
SetWord:=s;
end;

Сообщение отредактировано: Артемий2 - 22.02.2007 21:39