Turbo Pascal - Prośba o pomoc z projektem na zaliczenie

program nazwa;
uses crt;
var a:longint;

procedure info;
begin
write('To jest program');
readln;
end;

procedure clear;
begin;
clrscr;
end;

procedure help;
begin
write('Tu będzie pomoc');
readln;
end;

begin
writeln('Menu:');
writeln('1 - informacje');
writeln('2 - czysc');
writeln('3 - pomoc');
writeln('4 - wyjdz');
readln(a);
if a=1 then info;
if a=2 then clear;
if a=1 then help;
if a=2 then halt;
end.

if a=1 then info;
if a=2 then clear;
if a=1 then help;
if a=2 then halt;

if a=1 then info;
if a=2 then clear;
if a=3 then help;
if a=4 then halt;

begin
 writeln('Menu:');
 writeln('1 - informacje');
 writeln('2 - czysc');
 writeln('3 - pomoc');
 writeln('4 - wyjdz');
 While true do
 begin
  Writeln;
  Write('Wybierz: ');
  read(a);
  Case a of
   1: info;
   2: clear;
   3: help;
   4: halt;
   else
    WriteLn('Bledna opcja!');
  end;
 end;
end.

uses crt,dos;
VAR
sciezka,nick,j:string;
z:char;
label start,wyjdz;

procedure wyjscie(var j:string);

BEGIN
     clrscr;
     writeln('Czy napewno chcesz wyjsc z programu? [T\N]');

     END;
procedure menu1(var nick:string);

BEGIN
     textcolor(white);
     writeln('Wpisz swoj nick i nacisnij enter.');
     readln(nick);
     clrscr;
END;

Procedure tworzenie(var sciezka:string);
var
t:text;


BEGIN
     clrscr;
     writeln('Podaj sciezke dostepu do pliku *.txt');
     readln(sciezka);
     assign(t, sciezka);
     rewrite(t);
     close(t);
END;

Procedure dolacz(var sciezka:string);


BEGIN
     clrscr;
     writeln('Podaj sciezke dostepu do pliku *.txt');
     readln(sciezka);
END;

Procedure Usuwanie;
var
sciezka:string;
t:text;

BEGIN
     clrscr;
     writeln('Podaj sciezke do pliku *.txt aby go usunac:');
     readln(sciezka);
     assign(t, sciezka);
     erase(t);
END;


Procedure czat(var sciezka,nick:string);
var
slowa:text;
t:text;
i:char;
slowo,tekst,tekst1,nick1:string;
dlugosc:longint;
przeklinak:array[1..30] of string;
Const
  dni:array[0..6] of string=('Niedz','Pon','Wto','Sro','Czw','Pia','Sob');  {1}
Var
 rok,mies,dzien,dztyg:word;
  godz,min,sek,sek100:word;

BEGIN
dlugosc:=0;
     { PRZEKLINAK }
     przeklinak[1]:='Rodzice mnie bija!';
     przeklinak[2]:='Jestem niekulturalny :(';
     przeklinak[3]:='Nikt mnie nie lubi, bo przeklinam :(';
     przeklinak[4]:='Mam ubogie slownictwo wiec przeklinam :(';
     przeklinak[5]:='Lubie placki!';
     przeklinak[6]:='Zbieram zlom.';
     przeklinak[7]:='Nosze gacie po mlodszym bracie.';
     przeklinak[8]:='Jestem homoseksualista i dobrze mi z tym.';
     przeklinak[9]:='Na imie mam Eustachy.';
     przeklinak[10]:='Moj chlopak goli zeby.';
     { PRZEKLINAK END }
     clrscr;
     Assign(t, sciezka) ; Assign(slowa, 'c:\slowa.txt') ;
     REPEAT
     reset(t);
     REPEAT
     REPEAT
     readln(t, tekst);
     if length(tekst)<>dlugosc then   BEGIN
     writeln(tekst);
     dlugosc:=length(tekst);
     end;
     UNTIL EOF(t);
     UNTIL Keypressed;
     close(t);
     Append(t);
     readln(tekst1);
     IF tekst1='godmode' THEN
               BEGIN
               nick:=nick+' GodMode ON';
               end;
               IF (tekst1='wyjdz') or (tekst1='exit') THEN
               BEGIN
               clrscr;
               gotoxy(35,15);
               write('Bye Bye!');
               delay(500);
               halt;
               end;
              { PRZEKLINAK }
              reset(slowa);
              seek(slowa, 0);
              repeat
              readln(slowa, slowo);
              if tekst1=slowo then
               BEGIN
               randomize;
               tekst1:=przeklinak[random(10)];
               nick:= 'Przeklinam';
               END;
               miejsce:=miejsce+1;
               seek(slowa,miejsce);
               UNTIL eof(slowa);

                { PRZEKLINAK END }
     GetDate(rok,mies,dzien,dztyg);
     Write(t,dni[dztyg],'  ',dzien,'-',mies,'-',rok,' ');
     GetTime(godz,min,sek,sek100);
     Write(t,godz,':',min,':',sek,':',sek100,' ');
     writeln(t,'~', nick, ':');
     writeln(t, tekst1);
     clrscr;
     UNTIL tekst1='wstecz';
end;

BEGIN

	clrscr;
     menu1(nick);
     clrscr;
     start:
     writeln('1. Stworz czat.');
     writeln('2. Dolacz do czatu.');
     writeln('3. Usun czat.');
     writeln('4. Zmien nick.');
     writeln;
     writeln('5. Autorzy.');
     writeln('6. Wyjdz z programu.');
     z:=readkey;
     if (z<>'1') and (z<>'2') and (z<>'3') and (z<>'4') and (z<>'5') and (z<>'6') then
     BEGIN
          clrscr;
          goto start;
     END;
	CASE z OF
     '1':
     BEGIN
          tworzenie(sciezka);
          czat(sciezka,nick);
          goto start;
     END;
     '2':
     BEGIN
          dolacz(sciezka);
          czat(sciezka,nick);
          goto start;
     END;
     '3':
     BEGIN
          usuwanie;
          clrscr;
          GOTO start;
     end;
     '4':
     BEGIN
     clrscr;
     menu1(nick);
     GOTO start;
     END;
     '5':
     BEGIN
          clrscr;
          gotoxy(35,5);
          textcolor(5);
          write('Lan');
          textcolor(4);
          gotoxy(38,5);
          write('Czat');
          textcolor(15);
          gotoxy(20,6);
          writeln('Jakub Budny: Efekty Audio-Wizualne');
          gotoxy(20,7);
          write('Marcin "Dyzio" Dobrowolski: LanCzat');
          readln;
          clrscr;
          goto start;
     end;

     '6':
        BEGIN
             wyjdz:
             wyjscie(j);
             j:=readkey;
             if j='t' then exit;
             if j='n' then
             BEGIN
                  clrscr;
                  goto start;
             end;
             IF (j<>'t') and (j<>'n') then
                begin
                goto wyjdz;
                end;
        end;
        END;
end.