Дано 5 строк, заменить все большие гласные буквы символом $.

По заданию еще требовалось вывести само задание, фио студента, этим занимается процедура opisanie. Функция obr обрабатывает строку.

program sss1;
uses
crt;
const
n = 5; {кол-во строк для примера}

procedure opisanie; {здесь добавляем, что еще надо вывести в начале программы}
begin
clrscr;
writeln;
writeln('Программа обрабатывает 5 строк.');
writeln('Заменяет все гласные большие буквы симвлом $');
writeln('ФИО студента.');
writeln;
end;

function obr( str : string) : string;
const {проверить все ли гласные}
glen = ['A', 'E', 'U', 'O', 'I']; {множество англ. гласн. букв}
glrus= ['У', 'Е', 'Ы', 'А', 'О', 'Э', 'Я', 'И', 'Ю']; {множ. рус гласн}
var
i : integer;
begin
obr := '';
for i := 1 to length(str) do
begin
if (str[i] in glen) or (str[i] in glrus) then {принадлежит множ,}
obr := obr + '$' {ставим симв. $}
else
obr := obr + str[i];
end;
end;

var
s : string;
i1: integer;
mass : array [1..n] of string;
begin
opisanie; { вызов процедуры которая описывает задание}
for i1 := 1 to n do {заполняем массив}
begin
writeln('Введите ', i1, ' строку.');
readln(mass[i1]);
end;
for i1 := 1 to n do
begin
writeln(obr(mass[i1])); {вызов функции обработки строки}
writeln;
end;
readln;
end.

Скачать решение.