Определите, повторяется ли в таблице название первого товара, и если повторяется - удалите

@Рыжая007 · Регистрация: 05.03.2012

Author24 — интернет-сервис помощи студентам

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

Delphi

const
nMax =100;
 
var
assortiment: array [1..nMax] of string;
i,count: integer;
found: boolean;
 
begin
writeln('vveditekol-vonaimenovaniytovarov -> ');
readln(count);
for i:=1 to count do
begin
repeat
write('a(',i,') = ');
readln(assortiment(i));
until length(assortiment(i))>0;
end;
fori:=2 to count do if assortiment(i) = assortiment(1) then found:=true;
if not found then 
writeln('nazvaniepervogotovaravstrechaetsya')
else
begin
writeln('nazvanie v tablicevstrechaetsya ne 1 raz');
writeln('new tablica');
for i:=1 to count-1 do
begin
assortiment(i):=assortiment(i+1);
writeln('a(',i,') = ',assortiment(i));
end;
end;
readln;
end.

	27.06.2012, 21:31