Salve a tutti...come esercizio per casa la prof c ha assegnato un programma da fare in turbo pascal ma dopo svariati tentativi anche con l'aiuto di alcuni miei amici + bravi non c siamo riusciti (le matrici ce le ha spiegate da poco)..
La traccia è la seguente:

Caricare una matrice quadrata di dimensione 6 di nomi di animali, stampare solo l'ultima colonna e ricercare un animale scelto dall'utente

Ho provato nel seguente modo ma m da alcuni errori che non riesco a capire...



Program relazione;
uses crt;
const
r=6;
c=6;
mat=array[1..r,1..c]of string[25];
var
a:mat;
scelta:integer;
procedure carica(var a1:mat);
var
i,j:integer;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
readln(a1[i,j]);
end;
end;
end;
var
x:string[25];
procedure animale (var a1:mat);
begin
writeln('inserisci l''elemento');
readln(x);
for r=1 to 6 do
begin
for c=1 to 6 do
begin
if a1[r,c]=x then
writeln('l''animale esiste');
else
writeln('l''animale non esiste');
end;
end;
end;
Procedure stampa(var a1:mat);
var
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if i=6 then
writeln('a1[i,j]');
end;
end;
end;
Procedure Menu;

begin
writeln('1:carica');
writeln('2:carica');
writeln('3:stampa');
writeln('4:fine');
end;
begin{main}
repeat
writeln('menu');
readln(scelta);
case scelta of
1:carica(a);
2:ricerca(a);
3:stampa(a);
end;
until scelta=4;
readln;
end.