Дописать программу на Pascal ABC

[daniil-640]

Программа ищет повторы в массиве букв, и формирует новый массив, в котором отсутствуют эти повторы ( допустим если вводим строку 848asggsrt, то на выходе результат будет 84asgrt) Нужно дописать проверку вводимых данных! Типо Если нет повторов ( если введено sdfrtyuj => повторов нет) выводиться сообщение об отсутствии повторов. ПОмогите дописать это!

 program LAB10;
var i,j,k: integer;
var symb: char;
var b:boolean;   n:integer;
var ishodn, rezult: array[1..20] of string[70];
begin
 writeln('введите количество строк '); readln(n);
 writeln('введите массив:');
 for i:=1 to n do
  begin
   write(i:2,'.');
   readln(ishodn[i]);
  end;
 writeln;
 writeln('результат');
 writeln('---------------------------');
 for i:=1 to n do
  begin
   rezult[i]:=ishodn[i][1];
   for j:=2 to 70 do
    begin
     symb:=ishodn[i][j];
     b:=true;
     for k:=1 to length(rezult[i]) do
      begin
       if rezult[i][k]=symb then
        begin
         b:=false;
         break;
        end;
      end;
     if b then rezult[i]:=rezult[i]+symb;
    end;
writeln(rezult[i]);
    
    
  end;
end.

не могу понять где написать сию проверку

[denisbrain]

Сообщение от daniil-640

Программа ищет повторы в массиве букв, и формирует новый массив, в котором отсутствуют эти повторы ( допустим если вводим строку 848asggsrt, то на выходе результат будет 84asgrt) Нужно дописать проверку вводимых данных! Типо Если нет повторов ( если введено sdfrtyuj => повторов нет) выводиться сообщение об отсутствии повторов. ПОмогите дописать это!

 program LAB10;
var i,j,k: integer;
var symb: char;
var b:boolean;   n:integer;
var ishodn, rezult: array[1..20] of string[70];
begin
 writeln('введите количество строк '); readln(n);
 writeln('введите массив:');
 for i:=1 to n do
  begin
   write(i:2,'.');
   readln(ishodn[i]);
  end;
 writeln;
 writeln('результат');
 writeln('---------------------------');
 for i:=1 to n do
  begin
   rezult[i]:=ishodn[i][1];
   for j:=2 to 70 do
    begin
     symb:=ishodn[i][j];
     b:=true;
     for k:=1 to length(rezult[i]) do
      begin
       if rezult[i][k]=symb then
        begin
         b:=false;
         break;
        end;
      end;
     if b then rezult[i]:=rezult[i]+symb;
    end;
writeln(rezult[i]);
    
    
  end;
end.

не могу понять где написать сию проверку

Function GetCharOneCountFromText(StrValue:string):string;
  var
    ch:array[1..255] of integer;
    y,x:integer;
    l:integer;
    s2:string;
begin
 for X:=1 to 255 do ch[x]:=0;
  l:=length(StrValue);
 for X:=1 to l do ch[ord(StrValue[x])]:=ch[ord(StrValue[x])]+1;
 s2:='';
 for x:=1 to l do
 if (ch[ord(StrValue[x])]=1) then if s2='' then s2:=s2+StrValue[x] else s2:=s2+','+StrValue[x];
 result:=s2;
end;
{для тех у кого файл  }
Function GetOneCountCharFromFile(Filename:string):string;
  var T:TstringList;
begin
if FileExists(Filename) then begin
 T:=TstringList.Create;
 t.LoadFromFile(Filename);
 result:=GetCharOneCountFromText(t.Text);
 t.Free;
 end else result:='';

end;

http://netsoftware.ucoz.ru/news/vybr.../2012-05-28-80

[daniil-640]

Ну и что это мне дало? мне просто нужно организовать проверку, если нет повторов, то вывести сообщение, если есть то вывести полученный массив.

[denisbrain]

program LAB10;
var i,j,k: integer;
    symb: char;
     b:boolean;   n:integer;
    ishodn, rezult: array[1..20] of string[70];
    s2:String;



Function GetCharOneCountFromText(StrValue:string):string;
  var
    ch:array[1..255] of integer;
    y,x:integer;
    l:integer;
    s2:string;
begin

 for X:=1 to 255 do ch[x]:=0;
 l:=length(StrValue);
  s2:='';

 for X:=1 to l do begin
 ch[ord(StrValue[x])]:=ch[ord(StrValue[x])]+1;
 if ch[ord(StrValue[x])]=1 then s2:=s2+StrValue[x];
 end;
 GetCharOneCountFromText:=s2;
end;


begin
 writeln('введите количество строк '); readln(n);
 writeln('введите массив:');
 for i:=1 to n do
  begin
   write(i:2,'.');
   readln(ishodn[i]);
  end;
 writeln;
 writeln('результат');
 writeln('---------------------------');
  for i:=1 to n do
  begin
    s2:=GetCharOneCountFromText(ishodn[i]);
     if s2<>ishodn[i] then writeln('Строка поменена ', s2)
     else writeln('Строка не поменена ', s2);

  end




end.