פסקל - לולאות

[Gil-S]

הסתדרתי עם הקודם.. אבל נתקעתי בזה:

ההוראה היא:
"כתוב תוכנית הקולטת 18 זוגות מספרים ומדפיסה את מספר הזוגות בהם המספרים היו זהים זה לזה"

עכשיו מה שעשיתי זה קלטתי את הזוגות.. עם לולאת FOR, ואני מתקשה לעשות אחרי שהוא קלט שיציג לי ברשימה מה זהה.. אני מצליח רק אחרי כל אחד אם זהה או לא.

איך עושים שיהיה ברשימה?

זה הקוד שעשיתי עד כה:

program EXXX;
var
i,num,num1:integer;
begin
writeln ('ten 18 zugot');
for i:=1 to 18 do
readln (num,num1);
begin
if num = num1 then 
writeln (num,num1);
end;
end.