Сформировать результирующий массив строк

uses crt;
var
   s,st:array[1..30] of string[70];
   i,n:integer;
function str(s1:string):string;
var j,g:integer;
    s2:string;
    a:boolean;
begin
     s2:='';
     for j:=1 to length(s1) do
     begin
          a:=true;
          for g:=1 to length(s2) do
              if s1[j]=s2[g] then
                 a:=false;
          if a then
             s2:=s2+s1[j];
     end;
     str:=s2;
end;
begin
   clrscr;
   writeln('vvedite chislo strok');
   readln(n);
   clrscr;
   if n>30 then
      n:=30;
   writeln('vvodite ',n,' strok');
   for i:=1 to n do
       readln(s[i]);
   writeln;
   for i:=1 to n do
       s[i]:=str(s[i]);
   for i:=1 to n do
       writeln(s[i]);
   readln;
 
end.

program kr10;
uses crt;
var
   s,st:array[1..30] of string[70]; {описываем массив 30 элементов массива по 70 символов в строке}
   i,n:integer; 
function str(s1:string):string; 
var j,g:integer;
    s2:string;
    a:boolean;  {описываем типы переменных}
begin  {начало программного кода}
     s2:=''; {операция присваивания}
     for j:=1 to length(s1) do  {начало цикла}
     begin
          a:=true; {присваиваем Логический тип данных}
          for g:=1 to length(s2) do {начало цикла}
              if s1[j]=s2[g] then {проверка на неповторяющиеся символы}
                 a:=false;
          if a then
             s2:=s2+s1[j];
     end;
     str:=s2; {преобразуем массив s2  в строковый формат}
end; 
begin
   clrscr; {очистка экрана}
   writeln('vvedite chislo strok'); {вывод на экран сообщение}
   readln(n); {вводим n}
   clrscr; 
   if n>30 then {проверка на условие}
      n:=30;
   writeln('vvodite ',n,' strok'); {вывод на экран сообщение}
   for i:=1 to n do {начало цикла}
       readln(s[i]); {вводим s[i]}
   writeln; 
   for i:=1 to n do {начало цикла}
       s[i]:=str(s[i]); {преобразуем массив s в строковый формат}
   for i:=1 to n do {начало цикла}
       writeln(s[i]); {вывод s[i]}
   readln;
 
end. {конец программы}

program kr10;
uses crt;
var
   s,st:array[1..30] of string[70]; {описываем массив 30 элементов массива по 70 символов в строке}
   i,n:integer; {еще две необходимые переменные целого типа}
function str(s1:string):string; {функция, для удаления повторяющихся элементов}
var j,g:integer;
    s2:string;
    a:boolean;  {переменные используемые в функции}
begin  {начало функции}
     s2:=''; {обнуляем переменную s2}
     for j:=1 to length(s1) do  {цикл для j от 1 до длинны строки переданной в функцию}
     begin{операторные скобки}
          a:=true; {присваиваем Логический тип данных}
          for g:=1 to length(s2) do {до длинны новой строки}
              if s1[j]=s2[g] then {проверка на повторяющиеся символы}
                 a:=false;
          if a then{если в новой строке нет символов из первой строки}
             s2:=s2+s1[j];{то добавить символ в новую строку}
     end;{операторные скобки}
     str:=s2; {присваиваем функции результирующую строку}
end;{конец функции} 
begin{начало программы}
   clrscr; {очистка экрана}
   writeln('vvedite chislo strok'); {вывод на экран сообщение}
   readln(n); {вводим число элементов массива}
   clrscr; 
   if n>30 then {если введенное больше 30 то прировнять к тридцати}
      n:=30;
   writeln('vvodite ',n,' strok'); {вывод на экран сообщение}
   for i:=1 to n do {устанавливаем n элементам массива s значения}
       readln(s[i]); {вводим i ный элемент массива}
   writeln; 
   for i:=1 to n do {проходим по n элементам массива s}
       s[i]:=str(s[i]); {с помощью функции описанной выше убираем из каждого элемента массива повторяющиеся символы }
   for i:=1 to n do {проходим по n элементам массива s}
       writeln(s[i]); {вывод i ного элемента массива s}
   readln;
 
end. {конец программы}