var
Form1: TForm1;
small: array [0 .. 5] of char = (
'a',
'e',
'i',
'o',
'y',
'u'
);
big: array [0 .. 5] of char = (
'A',
'E',
'I',
'O',
'Y',
'U'
);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i, j: integer;
p: boolean;
begin
memo1.lines.loadfromfile(имя файла);
p := true;
for i := 0 to memo1.lines.Count - 1 do
s := s + memo1.lines[i];
for i := 1 to length(s) do
begin
if p then
begin
for j := 0 to high(small) do
if s[i] = small[j] then
begin
s[i] := big[j];
break;
end;
end;
if s[i] = ' ' then
p := true;
if s[i] <> ' ' then
p := false;
end;
memo1.Text := s;
end;