Символьные переменные

[mimit]

Две задачки
1)Дано предложение. Вставить «*» после всех букв «а» и «А».

var
  S:string;
  i:integer;

begin
  writeln('Введите предложение');
  readln(s);
  for i :=1 to length(s) do
    if (s[i]='а') or (s[i]='А')
      then
        insert('*',s,i+1);
  writeln(s);
  readln;
end.

2)Дано предложение. Удалить из него все русские буквы

var
  s: string;
  i:integer;

begin
  writeln('Введите предложение');
  readln(s);
  for i:=1 to length(s) do
    if (s[i]>='А') and (s[i]<='я')
      then
        delete(s,i,1);
  writeln(s);
  readln;
end.

я написал две задачки помогите проверить их.

[Mad_Cat]

все таки лучше использовать while или обратный For для таких задач
и по 2 задаче в русских буквах есть промежуток - поэтому А..я не прокатит

[mimit]

Сообщение от Mad_Cat

все таки лучше использовать while или обратный For для таких задач
и по 2 задаче в русских буквах есть промежуток - поэтому А..я не прокатит

А как узнать какой промежуток от А до я

[Serge_Bliznykov]

А как узнать какой промежуток от А до я

тут надо знать, под какую платформу (операционку) вы запускаете свою программу на Паскале (какая кодовая таблица символов используется).
Вы под каким Паскалем проверяете свои программы?
Если под TurboPascal (операционнка MS DOS - принятая кодовая таблица OEM, она же 866),
тогда можно написать так:

  writeln('Введите предложение');
  readln(s);
  for i:=length(s) downto 1 do
    if (s[i]>='А') and (s[i]<='Я') 
    or  (s[i]>='а') and (s[i]<='п') 
    or  (s[i]>='р') and (s[i]<='я') 
    or  (s[i]='Ё') 
    or  (s[i]='ё') 
      then
        delete(s,i,1);
  writeln(s);

а можно написать универсальныу программу на Паскале, которая будет корректно работать на той платформе, на которой она скомпилирована (заботу о кодовой таблице мы оставляем на совести компилятора).

const RusLetter = 
'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяЁё';
var
  s: string;
  i:integer;
begin
  writeln('Введите предложение');
  readln(s);
  for i:=length(s) downto 1 do
    if Pos(s[i], RusLetter)>0 then delete(s,i,1);
  writeln(s);