Помогите с задачкой на паскале

Question

Антон · Accepted Answer

Дай свой е-меил не даёт английские буквы написать!

Дмитрий · Answer

const 
 Small = 'аеёиоуэюя'; 
 Big = 'АЕЁИОУЭЮЯ'; 
var 
 Str : String; 
 N, P : Integer; 
begin 
 Write('Enter string: '); ReadLn(Str); 
 for N := 1 to Length(Str) do 
 begin 
 P := Pos(Str[N], Small); 
 if P > 0 then 
 Str[N] := Big[Pos]; 
 end; 
 WriteLn('New string: ', Str); 
end.