Programa que leia vários valores

[J.Jameson]

Estou fazendo um programa em pascal que leia os valores de vários produtos em um mercado e depois leia os valores dos mesmos produtos em outros mercados

Exemplo:

Produto 1: carne

Produto 2: nescau

Produto 3: cafe

Produto 4: leite

Mercado 1:

Valor do produto 1: 1,99

Valor do produto 2: 1,99

Valor do produto 3: 1,99

Valor do produto 4: 1,99

Mercado 2:

Valor do produto 1: 1,99

Valor do produto 2: 1,99

Valor do produto 3: 1,99

Valor do produto 4: 1,99

Mas to vendo que meu programa passa longe disso. Alguém pode dar uma dica pra que meu programe pelo menos chegue perto disso? Alguma dica, apostila sobre esse assunto...

Veja como esta o programa que estou fazendo

Program mercado;
Var
Soma,custo:real;
NumeroProdutos,custo_prod:integer;
NumeroSupermercados:integer;
I : integer;
textoLido : String;
Produto: array [ 1..10] of string [10];
Supermercados: array [ 1..10] of string [10];
ProdutosSupermercado: array[1..10,1..10] of string [10];
Begin
NumeroProdutos := 0;
While NumeroProdutos<10  do
Begin
            Write('Nome do Produto ', NumeroProdutos+1, ': ');
Readln(textoLido);
If (textoLido = 'fim') or (textoLido<>'Fim') or (textoLido <> 'FIM')  then
                                    break;
                        NumeroProdutos := NumeroProdutos +1;
                        Produto[NumeroProdutos] := textoLido;
End;     

NumeroSupermercados:= 0;

While NumeroSupermercados < 10  do
Begin
Write('Nome do Supermercado ', NumeroSupermercados + 1, ': ');
Readln(textoLido);
If (textoLido = 'fim') or (textoLido<>'Fim') or (textoLido <> 'FIM')  then
                                    break;
                        NumeroSupermercados:= NumeroSupermercados +1;
                        Supermercados [NumeroSupermercados] := textoLido;

                        For I := 1 to NumeroProdutos do
                        Begin
                                   Write('Preco do ', Produto[I], ' :');
                                   Readln(ProdutosSupermercado[NumeroSupermercados, I]);                    
                        End;
End;
                       soma:=0;

                         For custo_prod:=1 to 10 do
                         Soma:=soma + custo_prod;
                         Begin
                         Writeln('de o custo do produto',custo:3:2);
                         Writeln('o custo total da cesta é ',soma:3:2);
           End;


End.

[adrianolangaro]

Tens a intenção de fazer uma espécie de comparação de preços?

Exibindo em qual mercado é vantajoso comprar?

[J.Jameson]

Tens a intenção de fazer uma espécie de comparação de preços?

Exibindo em qual mercado é vantajoso comprar?

exatamente!

[valecovo]

Penso que, para evitar de andares sempre a introduzir dados, deves utilizar ficheiros. Neste link tens vários exemplos como usar ficheiros e até programas muito parecidos com o que pretendes fazer.

http://pascalforum.forumvila.com/viewforum.php?f=4