решение задачи в PASCAL ABC

[Базиля]

Мда... столько ошибок....

Program simvoli;
uses crt;
Label
1,2,7,3;    
Var
Fale:file of char;
c,g,w,e,r,t,y,u,I,o,p:integer;      

k,H:real;       
khm,khx,q,a,b:char;  
d,z:string;
begin
g:=0;
2:
Writeln('kak budite vvodit tekst s faila ili v rychnyu?');
Writeln('1-v rychnyu 2-failom');
Write('vvodite:');
Readln(c);
If c=2 then
Begin
Writeln('vvedite polnii adres k faily formata”*.txt”');
Writeln('primer: d:\file.txt');
Write('vvodite:');
Readln(d);
7:assign(fale,d);
Reset(fale);
While not eof(fale) do
Begin
Read(fale,b);
Write(b);
If eof(fale) then
Begin
Writeln;
Writeln;
End;
End;
Writeln('KOLICHESTVO SIMVOLOV VMESTE S PROBELAMI I ZNAKAMI PRIPENANIYA:',filesize(fale));
Close(fale);
Writeln;
Writeln('hotite poschitat kollichestvo povtorov vsego alfavita ili odnogo simvola?');
Writeln('1-odnogo simvola!2-vsego alfavita!');
Write('vvodite:');
Readln(u);
If r=1 then
Begin
Writeln('kakogo simvola kollichestvo povtorenii hotite poschitat?');
Writeln('vvodite simvol v sootvetstvii s yazikom teksta!');
1:assign(fale,d);
Reset(fale);
Write('vvodite:');
Read(a);    
W:=0;
While not eof(fale) do
Begin
Read(fale,q);
If q=a then
W:=w+1;
If eof(fale) then
Writeln('simvol”’,a,’”v etom tekste vstrechaetsya:',w);
End;
Close(fale);
Writeln;
Writeln('vvodim drugoi simvol ili novii tekst?');
Writeln('1-simvol 2-tekst');
Write('vvodite:');
Readln(e);
If e=1 then
Begin
Goto 1;
Writeln;
End;
If e=2 then
Begin
Goto 2;
End;
Close(fale);
End;
t:=0;
H:=0;
If u=2 then
Begin
For c:=1 to 255 do
Begin
W:=0;
k:=0;    //
Assign(fale,d);  //
Reset(fale);
While not eof(fale) do   //
Begin
Read(fale,q);
If q=chr(c) then
W:=w+1;
If eof(fale) then
If w<>0 then
Begin
Writeln('simvol ’”,chr(c), ’” v  etom tekste vstrechaetsya',w);
k:=w/33;  //
Writeln('veroyatnost',chr(c), '=',k);
H:=H+(-(k*(ln(k)/ln(2))));
End;
End;
T:=t+w;
End;
Writeln('po formule shernina I=',H);
Writeln(t);
Close(fale);;
End;
Writeln;
Writeln;
Writeln('hotite vvesti novii tekst?');
Writeln('1-Yes 2- No');
Write('vvodite:');
Readln(y);
If y=1 then
Goto 2;
End;
If c=1 then
Begin
Writeln('vvodite tekst v ruchnuyu!!':5);
Writeln('vvodite:':5);
Readln(z);
R:=length(z);
Writeln('kollichestvo simvolov vmeste s probelami I znakami pripenaniya:',r);
Writeln;
Writeln('hotite poschitat kollichestvo povtorov vsego alfavita ili odnogo simvola?');
Writeln('1 – odnogo simvola! 2 – alfavita!');
Write('vvodite:');
Readln(i);
T:=0;
H:=0;
If i=2 then
Begin
For o:=1 to r do
Begin
For c:=1 to 255 do
Begin
W:=0;
k:=0;
For o:=1 to r do
Begin
khm:=z[o];
khx:=chr(c);
If khm=khx then
W:=w+1;
If w<>0 then
Begin
Writeln('simvol ‘”,chr(c),’” v etom tekste vstrechaetsya:',w);
k:=w/33;
Writeln('veroyatnost ',chr(c),'=',k);
H:=H+(k*(ln(k)/ln(2)));
Delete(z,0,1);
End;
End;
T:=t+w
End;
writeln('po formyle shernina I=ýáÐ');
Writeln(t);
Writeln;
Writeln;
Writeln(' hotite vvesti novii tekst?');
Writeln('1-Yes 2-No');
Write('vvodite:');
Readln(y);
If y=1 then
Goto 2;
End;
End;
If i=1 then
Begin
Writeln('kakogo simvolo kollichestvo povtorenii hotite poschitat?');
Writeln('vvodite simvol v sootvetstvii s yazikom teksta!');
Write('vvodite:');
Readln(a);
W:=w+1;
End;
Writeln('somvol ‘”,a,’” v etom tekste vstrechaetsya:',w);
Writeln;
Writeln('vvodim drugoi simvol ili novii tekst?');
Writeln('1-somvol 2-tekst');
Write('vvodite:');
Readln(e);
Writeln;
If e=1 then
Begin
Goto 3;
End;
If e=2 then
Begin
Clrscr;
Goto 2;
End;
End;
End.

Где отмечено красным, там ошибка, не указана метка 3 в самом коде. Я не знаю где она у нее должна быть расположена, я в алгоритме не разбирался.

[Alex11223]

Судя по количеству Goto на 20-30 строк назад с алгоритмом тоже не все в порядке)

[Базиля]

Скорее, судя по таким ошибкам, с алгоритмом не все в порядке)

[kill_01]

ну хоть так спасибо, напишу завтра узнаем))0

[Равиль И.Р]

помогите мне тоже, решить не могу две последнии задачи)
1)Дан массив С(15). найдите среднее арифметическое положительных элементов массива.
2)Дана матрица В(5,6) сформировать вектор Т(5) из сумм элементов каждой строки.