Перевести код с С++ - Turbo Pascal

Формулировка задачи:

#include <stdio.h>
 
2
 
 #include <string.h>
 
 3
 
 #define size 100
 
 4
 
 int main()
 
 5
 
 {
 
 6
 
 char str[size];
 
 7

printf("vvedi symvoly: ");
 
 8
 
 gets(str);
 
 9 10

int i;
 
 11 12

for(i = 0;i < strlen(str); i++)
 
 13 14 15 16 17
 
return 0;
 
 18
 
 }

Решение задачи: «Перевести код с С++»

Листинг программы

var
  S: string;
  I: Integer;
begin
  Write('vvedite simvoly: ');
  Readln(S);
  for i := 1 to Length(S) do
    if (S[I] <> 'A') and (S[I] <> 'a') or (S[I] <> 'N') and (S[I] <> 'n') or (S[I] <> 'D') and (S[I] <> 'd') then
      Write(S[I]);
  ReadLn;
end.

Объяснение кода листинга программы

В начале объявляются переменные S и I типа string и Integer соответственно.
Затем выводится сообщение «введите символы: », чтобы пользователь мог ввести строку символов.
С помощью функции Readln считывается введенная пользователем строка.
Далее идет цикл for, который выполняется от 1 до длины введенной строки (Length(S)).
Внутри цикла проверяется каждый символ введенной строки.
Если текущий символ не является «A», «a», «N» или «n», и не является «D», «d», то он выводится на экран.
После завершения цикла выводится символ новой строки с помощью функции ReadLn.