Функция замены регистра предложения (Pascal)

[kenko825]

Разработать функцию, которая осуществляет замену в заданном англоязычном предложении j буквы каждого слова на соответствующую заглавную букву и возвращает полученное предложение (параметр функции - символьная строка, которая превращается). Задано текстовый файл. На основе разработанной функции напечатать первые три строки данного файла так, чтобы все слова начинались заглавными буквами.

[Stilet]

function Up(s:String):String; var i:integer; r:string;
begin
 for i:=2 to Length(s) do 
  if (s[i-1]==' ') and (s[i] in ['a'..'z']) then r:=r+UpCase(s[i]) else r:=r+s[i];
 Up:=r;
end;

Годится?

[kenko825]

Сообщение от Stilet

function Up(s:String):String; var i:integer; r:string;
begin
 for i:=2 to Length(s) do 
  if (s[i-1]==' ') and (s[i] in ['a'..'z']) then r:=r+UpCase(s[i]) else r:=r+s[i];
 Up:=r;
end;

Годится?

Можете написать целиком программу, поймите, в программированию на паскале я не силён, а лабораторные нужно сдать завтра. Заранее спасибо

[Aleksandr H.]

Вот так

var f:text;
i:byte;
s:string;
function Up(s:String):String; var i:integer; r:string;
begin
 for i:=2 to Length(s) do
  if (s[i-1]==' ') and (s[i] in ['a'..'z']) then r:=r+UpCase(s[i]) else r:=r+s[i];
 Up:=r;
end;
BEGIN
assign(f,'1.pas');reset(f);
i:=0;
while not eof(f) do
begin
inc(i);
readln(f,s);
writeln(s);
writeln(Up(s));
if i =3 then break;
end;
readln;
END.

Подсказка, Stilet дал общий принцип функции, тебе же осталось чуток ее изменить что-бы работала как надо и найти одну ошибку в синтаксисе кода

[Stilet]

Ахахах!!! Я с Си помешал )))
Вот уж бывает так бывает...