sinilotomasz

wyskakuje błąd przy counts

Prubowałem to zrobić tak ale mi coś nie wychodzi program licz; {$APPTYPE CONSOLE} uses SysUtils; function zliczaj_litery(litera:char):integer; var Litery:array [65..122] of integer; i:integer; plik:Text; nazwa_pliku:String; Znak:Char; linia : string; licznik:integer; begin linia:=0; Writeln('Podaj nazwe pliku, ktory chcesz otworzyc (pamietaj o rozszerzeniu!)'); Readln(nazwa_pliku); Assign(plik,nazwa_pliku); Reset(plik); while not EOF(plik) do begin read(plik,linia); // kopiowanie każdej linii dokumentu do zmiennej linia For i:=1 to length(linia) do // badanie każdego znaku w linii if (litery)=znak then inc(licznik) // jeśli znaleziono licznik zwiększamy close(plik); end.

chyba to miało byc konsolowo

nauczyćiel mi kazał napisać to bez procedury i miały być użyte tablice

a jak to napisać bez procedury;

a jak to będzię konsolowo

tylko litery z alfabetu bez polskich okienkowo

delphi7

Muszę napisać ten program tylko nie wiem jak bo to dopiero mój początek z delphi prosze o pomoc.