Заданы М строк символов, которые вводятся с клавиатуры. Каждая заданная строка представляет собой текст. Исключить из этих текстов все гласные буквы.
правильно??
Program z1; uses crt;
const glas = ['а','е','и','о','у','э','ю','я','А','Е','И','О','У ','Э','Ю','Я'];
var s:string;
i,j:integer;
c:char;
a:array[1..100] of string;
begin
clrscr;
i:=0;
Writeln('Будете вводить данные');
readln(c);
While ( c in ['Y','y','Д','д']) or (i=100) do
begin
inc(i);
Writeln('Введите ',i,' ю строку');
readln(s);
for j:=1 to length(s) do
begin
if not(s[j] in glas) then a[i]:=a[i]+s[j]
end;
Writeln('Вводить еще информацию? ');
readln(c);
end;
for j:=1 to i do
if a[j]<>'' then Writeln(a[j]);
readln
end.