паскаль туплю

[Akcentbek]

uses crt;
const
 s=3;
var
   i,j,k,g,p:integer;
   q : array[0..255] of integer;
   qw: array[0..255,0..255] of integer;
begin
   clrscr;


 for i:=1 to 9 do
   begin for j:=1 to 9 do
    begin
      qw[i,j]:=random(3);  write(qw[i,j]:4);
    end; writeln;
   end;
 for g:=1 to 9 do q[g]:=0;
 {здесь я присваиваю элементу еденицу если он есть вообще в столбце 
  но не получается проходит по всем элементам но для одного элемента прокатывает 
 как сделать чтобы это работало для каждого элемента строки но при этом из строки брались элементы разные, и дальше все вывести в
 одномерный массив из не менее 81 элемента  и массив в случае принадлежности выводил букву строки а если нет то ноль   }
 for k:=1 to 9 do
     begin
      for j:=1 to 9 do
       begin
        for i:=1 to 9 do
         begin
            if qw[i,j]=qw[s,K] then
            begin
               q[j]:=1;

            end;
         end;
       end;
     end;
       if q[j]=1 then inc(q[k]);
       for k:=1 to 9 do writeln(q[ord(q[k])]:2);

 readln;   
end.

[Вадим Мошев]

Я вот тут на бумажке написал номер строки, где у вас ошибка...

[Akcentbek]

да ты красавчик!!

народ помогите завтра сдавать

[Sna1L]

оформление кода страшноватое... Не осилил. лень
Стоило хотя бы написать что делает программа и желательно алгоритм в кратце

[whatever]

Не знаю, как код был оформлен на момент последнего сообщения, сейчас очень даже терпимо. Но вот что написано в комментарии... Тоже не осилил :D

как сделать чтобы это работало для каждого элемента строки но при этом из строки брались элементы разные

O_o

[Akcentbek]

ну то есть например если строка такая
123324
брались элементы не все подряд
123324 а толькло по одному экземпляру т е / 1234 ))

[Stilet]

      
 for k:=1 to 9 do  begin
  for i:=1 to 9 do       begin
    j:=i; while (j>=1)and(qw[k,i]<>qw[k,j])  do dec(j);      
    if j=0 then Еще такой цифры как qw[i,j] в строке i не было
  end;
 end;

Идея понятна?

[Akcentbek]

если честно то не со всем
в случае правды дальше что ?