Паскаль массив

[dante92]

Помогите плиз написать програмку которая считывает текст состоящий из латинских букв и удаляет из отрезка текста,заданного границами,все согласные буквы.string не использовать

[Stilet]

string не использовать

А что использовать? Массив символов? Динамический список?
Наработки то где?

[ai\ekcah^p]

Создай массив и проверяй его на наличие согласных, потом
создай новый массив и перекидывай туда все что не входит в согласные .

program zad1;
uses crt;
type
  cBukvy = array[1..100] of char;
  simvol = set of char;
var
i,k:integer;
stroka:cBukvy;
sogl:simvol;
mas:cBukvy;
begin
  clrscr;
  sogl:= ['q','w','r',
          't','p','s',
          'd','f','g',
          'h','j','k',
          'l','z','x',
          'c','v','b',
          'n','m'];

  writeln('введите строку латинскими символами ...');
  readln(stroka);
  k:=1;
  for i:=length(stroka) downto 1 do
  if stroka[i] in  sogl then
  else
  begin
    mas[k]:=stroka[i];
    k:=k+1;
  end;
  write('преобразованная строка ->  ');
  for i:=k downto 1 do
  write(mas[i]);
  readln;
end.

[notHaker]

ai\ekcah^p, Ах вот вы как тут репутацию нагоняете))))))))

ЗЫ : Ссори за флуд))