MATRIZ em pascal no LAZARUS com pequisa de um valor

Nesta matriz o usuario podera digitar varios valores preenchendo a matriz e logo apos ele podera busca um valor especifico.

program project1;

{EUCLEZIO

uma matriz de 20 por 20, ler tambem um valor a ser buscado dentro da matriz mostrar a linha e coluna

onde foi encontrado ou a mensagem não encontrou}

{$mode objfpc}{$H+}

uses

  {$IFDEF UNIX}{$IFDEF UseCThreads}

  cthreads,

  {$ENDIF}{$ENDIF}

  Classes

  { you can add units after this };

var

matriz: array[1..20, 1..20]of string;

i,j, cont: integer;

busca: string;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

begin

{aqui foi inicializadas as variaveis com valor em branco e o "cont" com 0}

busca:='';

cont:=0;

{inicia-se um loop e dentro dele outro para que o primeiro loop seja a linha da

matriz e o segundo loop seja as colunas assim os valores serão colocados

nas coodernadas de "I" e "J"da matriz}

                for i:=1 to 20 do begin

                               for j:=1 to 20 do begin

                                               writeln( ' digite o valor da linha ', i,' e coluna ', j, ' :');

                                               readln(matriz[i,j]);

                               end;

                end;

{aqui é iserido o valor que sera buscado dentro da matriz}

                writeln(' digite um valor a ser buscado: ', busca);

        readln(busca);

{cria-se um loop e dentro dele outro para que o primeiro loop seja a linha da

matriz e o segundo loop seja as colunas assim o valor a ser buscado

nas coodernadas de "I" e "J"da matriz}

                for i:=1 to 20 do begin

                               for j:=1 to 20 do begin

{usa um teste com a matriz na nas posições de "I" e "J" se encontra ele incrementa mais 1 na variavel

"CONT" e exibe a linha e coluna encontrada e o valor da busca}

                                               if matriz[i,j]= busca then begin

                                                               writeln(' a posição é linha: ', i,'coluna: ', j,' nesta posição encontrou:', busca);

                                                               cont:=cont+1;

                                               end;

                               end;

                end;

{este teste abaixo verifica se a variaveL "CONT" é igual a zero se isto ocorre

então não encontrado anteriormete o que o usuario pequisou sendo assim

ele informa que não encontrou a busca}

if cont<1 then writeln('não encontrou nada de nada tente depois ok');

                readln;

end.