Witam, mam problem ze stworzeniem małej bazy w Pascalu.
Tu jest skrypt:
program baza;
uses
Crt;
const n=1000;
var nazwy: array [1..n] of string;
liczby: array [1..2] of string;
i:integer;
a: char;
begin
liczby[1]:='osób';
liczby[2]:='osoby';
Writeln ('Podaj liczbę osób');
readln (i);
clrscr;
if (i=1) then
begin
liczby[1]:=liczby[2];
end;
Writeln ('Wypisz dane',' ',i,' ',liczby[1],' ','zcazynając od NAZWISKA');
for i:=1 to i do
begin
Readln (nazwy[i]);
end;
for i:=1 to i do
begin
Writeln(nazwy[i]);
end;
readln;
end.
W zadaniu chodzi o to aby program pobrał od użytkownika ilość nazw osób (imię+nazwisko), a następnie wyświetlił tylko te nazwiska, które zaczynają się na literę podaną z klawiatury. Trochę nad tym siedziałem, ale usunąłem głupoty, które wcześniej tam były:)