if ioresult=0 then
begin
{$I-} { $I-/+ tylko jeśli nie kontrolujesz zakresu używanych zmiennych ;/ }
seek(baza,0); { co powinieneś robić w programie, inaczej będą błędy ;/ }
read(baza,t[0]);
{$I+}
{...}
end
else
begin
rewrite(baza);
{...}
end;
Sposób w jaki używasz {$I-} … {$I+} jest niepoprawny (kompromitujący)
i daje w związku z tym niedookreślone rezulaty - błędy ;/
Co do sposobu gina najpierw trzeba nacisnąć enter a potem wywala mi disk read eror, natomiast moim kompromitującym sposobem program idzie dalej i wyświetla mi że bazy nie znaleziono.
Ja dopiero się uczę i jak mi nie wychodzi to próbuje inaczej dla mnie nie ważne czy mój sposób jest kompromitujący ważne by działało. Jak będzie działać perfect to się zajmę optymalizacją kodu xD
Znalazłem mój błąd otóż nie miałem linijki z sprawdzeniem czy w ogóle była wpisana ścieżka do bazy a że sprawdzałem czy wyskakuje błąd nie podając ścieżki wywalał mi błąd. Taki banalny błąd a tyle czasu go szukałem. Sry dla was. Ostatnio mi prąd wyłączyli nie zapisałem i być może przez to nie pomyślałem o tym. W każdym razie moja wina jeszcze raz sry.