Помогите составить блок-схему

[Лапотуня]

Помогите составить блок-схему

Вводится набор строк и набор чисел. Введенные числа показывают номера выбранных мест в строках. Вывести символы (без повторений), стоящие на выбранных местах.

program project5;
uses
SysUtils;
var
i, j : integer;
numNumbers : integer;
numStrings : integer;
arrNumber : array of integer;
arrString : array of string;
result :string;
begin
Write('Колличество строк: ');
ReadLn(numStrings);
Write('Колличество чисел: ');
ReadLn(numNumbers);
WriteLn;
setlength (arrString, numStrings);
setlength (arrNumber, numNumbers);
for i:= Low(arrString) to High(arrString) do begin
Write('Строка ',i,': ');
ReadLn(arrString);
end;
WriteLn;
for i:= Low(arrNumber) to High(arrNumber) do begin
Write('Число ',i,': ');
ReadLn(arrNumber);
end;
result := '';
for i:= Low(arrNumber) to High(arrNumber) do begin
for j:= Low(arrString) to High(arrString) do begin
if((Length(arrString[j]) >= arrNumber) AND (Pos(arrString[j][arrNumber], result) = 0))
then begin
result := result + arrString[j][arrNumber];
end;
end;
end;
WriteLn('Символы стоящие на выбранных местах: ',result);
WriteLn;
WriteLn('Чтобы закрыть нажмите клавишу ENTER...');
ReadLn();
end.

 

[Валерий]

Перестаньте клонировать тему!

 

[Валерий]

Похоже, сударь, вы не поняли. Бан на неделю.