Estrutura de dados

7. Dados dois números naturais m e n, uma frase com m letras e uma palavra com n letras, escreva um procedimento que determine o número de vezes que a palavra ocorre na frase e a posição em que cada ocorrência inicia.
Exemplo:
Para M = 30, N = 3, a palavra ANA e a frase:
ANA E MARIANA GOSTAM DE BANANA
A palavra ANA ocorre 4 vezes, nas posições 1, 11, 26, 28.

Program ex_7; var v1:array [1..10] of integer; comp:array [1..3] of integer; i,j,oc1,oc2,oc3:integer; begin oc1:=0;oc2:=0;oc3:=0; for i:=1 to 10 do begin clrscr; writeln('insira um numero'); readln(v1[i]); end; for j:=1 to 3 do begin clrscr; writeln('Insira um numero para ver o numero de ocorrencias'); readln(comp[j]); end; for i:=1 to 10 do begin if(v1[i]=comp[1])then begin inc(oc1); writeln('o numero', ' ',comp[1],' ' ,'ocorre',oc1); end; if(v1[i]=comp[2])then begin inc(oc2); writeln('o numero', ' ',comp[2],' ', 'ocorre',oc2); end; if(v1[i]=comp[3])then begin inc(oc3); writeln('o numero',' ',comp[3],' ' ,'ocorre',oc3); end; end; end. 2. Faça um programa que leia duas sequências de n inteiros em dois vetores distintos, digamos, V e W e verifique se os dois vetores são idênticos.

Program ex_2 ; type tnum = array [1..10] of integer; var v,w : tnum ; i: integer ;
BEGIN
for i:= 1 to 10 do Begin writeln ('Informe um número :'); read (v[i]); end; clrscr; for i:= 1 to 10 do Begin writeln ('Informe outros Numeros :'); read (w[i]); End; for i:= 1 to 10 do Begin if (w[i]=v[i]) then writeln ('Eles sao identicos') else if (w[i]v[i]) then writeln('Eles são diferentes'); end; end. exercicio 1

Program Pzim ; var n:array [1..5] of integer; i:integer;